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ABSTRACT 


This  paper  describes  the  design  and  implementation 
of  a  microprocessor-based  high-speed  digital  data 
acguisition  and  reduction  system  suitable  for  use  in 
time  varying  signal  analysis  as  encountered  in 
unsteady  aerodynamic  investigation.  k  microprocessor, 
flexible  disk  drive  and  an  analog-to-digital 
conversion  module  were  the  main  components  which  were 
integrated  to  form  a  32  channel  12  bit  resolution  data 
acquisition  system  capable  of  1000  Hz  sampling  rate 
and  permanently  storing  over  250,000  bytes  of  data  on 
magnetic  diskette.  Subsequent  to  the  data  logging 
process,  the  same  system  was  capable  of  serving  as  a 
general  purpose  computer  utilizing  the  popular  BASIC 
scientific    programming    language. 

The  system  was  qualified  for  accuracy  and 
functional  performance  through  a  series  of  controlled 
exercises,  and  was  then  applied  to  an  actual 
investigative  task  to  further  determine  its  utility 
and    value. 


TABLE    OF    CONTENTS 


I.      Introduction 9 

II.      System   Design 11 

A.  Definition    of    the    "Need" 11 

B.  Determination   of    Performance   Specifications..  13 

1.  Analog    to   Digital   Conversion     (A/D) 13 

2.  Number    of    Analog    Channels 15 

3.  Sample    Resolution    (Quantization    Error)...  17 

4.  Conversion    Rate 17 

C.  The   Processor 18 

1.      A/D    Control 18 

III.       Hardware 22 

A.       MDS-800    Microcomputer    Development    System 22 

1.  Random    Access    Memory    (RAM) 24 

2.  Disk   Operating    System    (DOS) 26 

3.  General    Purpose   I/O    Module 26 

4.  SINETRAC-800    A/D    Converter    Module 27 

IV.      Software 30 

A .   Languages 30 

1.  8080  Assembly  Language 30 

2.  PL/M 31 

3.  BASIC 32 

E.   Programs  and  Diskette  Files 32 

1.  CONTROL 33 

2.  ACQUIRE 33 

3.  PROTECT 35 

4.  DATA.nnn 36 

5.  CONVERT 37 

6.  REDUCE 37 

7.  IFACE 38 

V.       System   Qualification 39 


A.  DC  Calibration 39 

B.  Sinusoidal  Signal  Becontruction 4  2 

C.  Square  Wave  Response 46 

VI.   System  Application 51 

A.   Operating  Conditions 51 

VII.   Conclusions  and  Recommendations 66 

A.  Interchannel  Sampling  Lag 66 

1 .  Interchannel  Delay 67 

2.  Individual  Sample  and  Hold  Circuitry 67 

B.  System  Acquisition  Speed 69 

C .  Data  Reduction 70 

Appendix  A:   Glossary 72 

Appendix  H:   Program  Flow  Diagrams 75 

Appendix  C:   Program  Listings 80 

Appendix  C:   Sample  Output 122 

Appendix  E:   Operating  Instructions 124 

Appendix  ?:   Sample  CONTROL  File 126 

LIST  OF  REFERENCES 127 

INITIAL  DISTRIBUTION  LIST 129 

LIST  OF  FIGURES 7 


LIST  OF  FIGURES 

1.  Typical  Analog  to  Digital  Data  Acquisition  Module...  14 

2.  CCR  Experimental  Signal  Flow 16 

3.  MDS-800  Microcomputer  Development  System 20 

4.  16K3yte  Random  Access  Memory  Module 23 

5.  SINETRAC-800  Analog  to  Digital  Converter  Module 25 

6.  "Aliasing"  Effect 29 

7.  DC  Voltage  Calibration  Results U1 

8.  Sinusoidal  Signal  Reconstruction  Test  Circuit '43 

9.  Sinusoidal  Gain  Qualification  Test  Results 44 

10.  Sinusoidal  Phase  Qualification  Test  Results 45 

11.  Phase  Error  Due  to  Interchannel  Sampling  Lag u7 

12.  Square  Wave  Reconstruction  Harmonic  Spectrum 49 

13.  Effect  of  Compensation  on  Induced  Phase  Error 50 

14.  System  Application  Configuration 53 

15.  Coanda  Sheet  Pressure  Profile  (3.7  Hz) 54 

16.  Coanda  Sheet  Pressure  Profile  (5.1  Hz) 55 

17.  Coanda  Sheet  Pressure  Profile  (6.4  Hz) 56 

18.  Coanda  Sheet  Pressure  Profile  (8.5  Hz) 57 

19.  Coanda  Sheet  Pressure  Profile  (10.7  Hz) 58 

20.  Coanda  Sheet  Pressure  Profile  (13.7  Hz) 59 


21 .  Coanda  Sheet  Phase  Distribution  (3.7  Hz)  60 

22.  Coanda  Sheet  Phase  Distribution  (5.1  Hz) 61 

23.  Coanda  Sheet  Phase  Distribution  (6.4  Hz) 62 

24.  Coanda  Sheet  Phase  Distribution  (8.5  Hz) 63 

25.  Coanda  Sheet  Phase  Distribution  (10.7  Hz) 64 

26.  Coanda  Sheet  Phase  Distribution  (13.7  Hz) 65 

27.  Single  vs  Multiple  Sample  and  Hold  Concept 68 


I.   INTRODUCTION 


Data  acquisition  systems  have  historically  been  both 
costly  and  cumbersome  for  the  investigator  to  use. 
Acquisition  cf  unsteady  experimental  data,  as  in  the  case  of 
oscillatory  flow  investigation,  was  only  possible  with  the 
aid  of  expensive  digital  computer  systems  used  in 
conjunction  with  elaborate  analog  recording  devices. 

Within  the  past  four  years,  a  new  form  of  computing 
power  has  become  available  to  the  engineer  accompanied  by 
such  a  reduction  in  cost  that  its  use  has  spread  rapidly 
throughojt  the  realm  of  engineering  design.  The 
revolutionary  device  alladed  to  is  the  microprocessor,  which 
in  its  basic  form  contains  all  the  arithmetic  and  logical 
functions  normally  found  in  the  central  processing  unit 
(CPU)  of  a  large  scale  computer.  Concurrent  advances  in 
solid  state  iremory  and  other  large  scale  integrated  (LSI) 
circuitry  has  enabled  entire  computing  systems  to  be  encased 
in  table-top  enclosures  at  a  fraction  of  the  cost  of  the 
previously  available  minicomputers. 

This  document  describes  the  use  of  one  such 
microprocessor-based  microcomputer  system,  the  INTEL  MDS-900 
Microcomputer  Development  System,  as  a  central  component  of 
a  data  acquisition  system  .  The  ttDS  was  integrally 
connectei  with  various  peripheral  devices  including  an 
analog  ~o  digital  converter,  input-output  devices,  and  a 
dual  flexible  disk  drive  unit  to  form  a  data  acquisition 
system.  The  system  was  then  qualified  using  known  input 
signals  cf  controlled  harmonic  content.  Subsequently  the 
system   was   applied   to   an   actual  experimental  situation, 


where  unsteady  analog  signals  were  digitized,  recorded,   and 
later   analyzed  on  the  same  self-contained  computing  system. 

A  glossary  of  terms  commonly  used  in  the  instrumentation 
engineering,  data  processing  and  computing  disciplines  is 
presented  in  Appendix  A. 
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II .   Svst em  Desiqn 


An  engineering  design  is,  in  general,  the  result  of  a 
directed  effcrt  in  meeting  a  recognized  human  need  or 
desire.  The  value  of  the  design  is  usually  determined  by 
how  well  the  design  product  satisfies  a  set  of  performance 
criteria.  In  most  cases,  several  methods  of  achieving  the 
goal  will  be  available,  thus  requiring  the  designer  to 
choose  among  the  alternative  approaches.  This  choice  will 
be  governed  or  influenced  by  constraints  imposed  by  the 
environment,  funding  and  production  schedule. 

This  section  deals  with  the  definition  of  the  need, 
specification  of  the  desired  performance  attributes, 
determination  of  viable  alternatives,  and  the  decision 
process  by  which  the  final  product  was  developed.  Although 
most  of  the  desired  performance  requirements  were  achieved, 
the  project  served  as  an  educational  experience  revealing 
many  areas  which  could  be  improved.  Section  VII  discusses 
the  design  in  retrospect  and  proposes  additional 
alternatives  which  could  further  enhance  the  system's 
performance. 


A.   Definition  of  the  "need" 


The 


need 


jan 


was 


precipitant   of    the    Circulation 


Controlled  Rotor  (CCR)  aerodynamic  investigation  being 
conducted  by  Naval  Postgraduate  School  personnel.  Existing 
wind-tunnel  data  acquisition  systems  were  designed  ^o 
operate  in  the   steady-state   flow-field   environment.    The 
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desire  to  study  the  dynamic  nature  of  the  flow  about  an 
airfoil  of  radical  design,  while  experiencing  the  effects  of 
an  oscillatory  flow-field,  required  a  departure  from  the 
traditional  hand  logging  or  slow-speed  automatic  data 
acquisition  methods.  More  important,  however,  the 
experimental  process  not  only  required  investigation  of  the 
CCF  at  various  angles  of  attack  and  air  speeds,  as  in  the 
case  of  steady-state  wind  tunnel  experimentation,  but 
additionally  introduced  frequency,  cavity  pressure 
modulation  amplitude  and  phase  relative  to  flow  field 
oscillation  as  variables.  Thus,  the  CCS  experiment  required 
experimental  investigation  throughout  an  operating  envelope 
bounded  by  5  independent  variables  rather  than  the  usual  2 
associated  with  steady-state  flow  problems.  This  obviously 
increased  the  magnitude  of  the  data  acquisition  problem  far 
beyond  the  point  of  practicability  for  the  conventional  data 
logging  methods  at  hand.  A  high-speed  automatic  data 
logging  technique  was  clearly  in  order.  Additionally,  in 
order  for  large  amounts  of  data  to  be  efficiently  analyzed, 
it  was  imperative  that  all  information  be  recorded  in  a  form 
which  could  be  directly  utilized  by  a  digital  computer. 

The  above   rationale   then   became   the   basis   for   the 
following  statement  of  the  "need": 

*  A  high-speed  iigital  data  acquisition  system 
exhibiting  performance  attributes  necessary  to  allow 
numerical  analysis  of  the  flow  pattern  about  the  surface  of 
a  CCR  airfoil  section,  operating  in  the  Naval  Postgraduate 
School  2-foot  by  2-foot  oscillatory  flow  wind  tunnel 

*  Function  as  a  controlling  device  capable  of 
automatically  sequencing  the  Scanivalve  mechanical 
multiplexers  without  operator  intervention 

*  Perform  the  algebraic  calculations  necessary  in 
reducing  the  data  to  analytic  form 
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B.   Determination  of  Performance  Soecif icat ions 


Anticipating  a  significant  investment  in  equipment,  and 
realizing  that  the  CCR  research  project  would  some  day  he 
complete,  it  was  determined  that  the  system  design  should 
take  future  applications  into  consideration.  For  this 
reason,  flexibility  was  incorporated  as  a  major  design  goal, 
which  necessarily  resulted  in  a  modification  of  the 
specifications  from  those  actually  required  for  the  CCR 
task. 

1 •   Analoo  to  Digital  Conversion  (A/D) 

In  a  typical  data-sampling  system,  signal  voltages 
representing  varying  physical  parameters;  e.g.,  pressure, 
temperature,  position,  velocity  and  acceleration,  are 
sampled  and  converted  via  A/D  converters  into  digital  form. 
A/D  conversion  has  become  an  engineering  discipline  in 
itself  and  an  entire  vocabulary  associated  with  the  field 
has  resulted.  To  assist  the  reader  in  understanding  the 
following  treatment  of  A/D  performance  requirements,  a  brief 
glossary  of  A/D  terminology  is  included  within  Appendix  A. 
In  the  interest  of  brevity,  the  discussion  herein  is  limited 
to  the  most  important  facets  of  A/D  conversion.  For  a  more 
complete  treatment  of  the  subject,  the  reader  is  directed  to 
ref.   12,  an  outstanding  collection  of  A/D  related  articles. 

As  a  prelude  to  the  below  listed  performance 
parameters,  Fig  1  depicts  all  of  the  elements  found  in  a 
typical  A/D  conversion  system  and  illustrates  the  type  of 
errors  associated  with  each  stage  of  the  process. 
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2 .       Number   of    Anal oa    Channels 

The  CCR  experimental  set  up  had  one  analog  channel 
dedicated  to    each    of   the   below    listed    signal    sources: 

*  Scanivalve  ONE 

*  Scanivalve  TWO 

*  Cavity  Pressure  Transducer 

*  Hot  Wire  Annemometer 

A  schematic  of  the  signal  flow  is  depicted  in  Fig  2. 
The  four  channels  were  to  be  sampled  in  fast  succession  at  a 
specified  periodic  rate.  The  A/D  module  had  provisions  for 
32  single-ended  channels  or  16  differential  channels.  The 
single-ended  mode  was  employed  in  this  application. 
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FIGURE  2  -  CIRCULATION  CONTROL  HOTOR  EXPERIMENTAL  SIGNAL  PLOW 
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3  .   Sam  Die  Resolution  (guan  tizatiqn  e  r  ror}_ 

When  the  analog  signal  is  digitized,  the  resulting 
digital  quantity  can  take  on  only  certain  discrete  values. 
The  number  of  bits  in  the  digitized  datum  word  determines 
the  number  of  possible  states  that  the  word  may  have.  An  8 
bit  A/D,  for  example,  can  exhibit  2  to  the  8th  or  256 
states.  If  the  range  of  operation  of  the  A/D  is.  minus  5  to 
plus  5  volts,  (10  volts  full  scale),  then  each  bit 
represents  an  increment  of  .0391  volts.  This  amounts  to  a 
resolution  or  quantization  error  of  0.391  percent.  The  more 
bits  in  the  digitized  word,  the  better  the  resolution; 
however,  the  price  paid  for  increased  accuracy  is  a  decrease 
in  conversion  speed.  Cf  course,  speed  and  accuracy  may  be 
obtained  concurrently  with  a  corresponding  increase  in  cost. 

The  A/D  module  exhibited  12  bit  accuracy,  yielding  a 
quantization  error  of  0.02U  percent  over  full  range 
operation.  This  corresponded  to  a  sensitivity  of 
approximately  0.00244  volts  during  10  volt  full  scale 
operation.  The  12  bit  converter  offers  moderate  accuracy 
and  relatively  high  speed,  e.g.  75,000  conversions  per 
second,  for  a  reasonaole  cost. 

u •   Conversion  Pate 

The  aaount  of  time  required  for  the  A/D  module  to 
sample  and  digitize  the  analog  input  is  defined  as  the 
conversion  time.  The  A/D  module  was  capable  of  75,000 
12-bit  conversions  per  second,  or  one  conversion  every  13 
microseconds.  This  conversion  rate  was  only  obtainable  if 
the  Direct  Memory  Access  (DMA)  mode  were  utilized.  Since 
the  SINETRAC-300  module  was  operated  in  the  program   control 
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mode,  the  conversion  rate  was  limited  by  the  microprocessor 
instruction  sequence  execution  time  to  74.5  microseconds  per 
conversion.  The  resulting  throughput  was  13,400  conversions 
per  second.  The  induced  lag  between  channels  caused 
significant  problems  in  signal  reconstruction  and  is 
discussed  in  detail  in  section  IV. 


C.   The  Processor 


The  digital  processor  was  the  heart  of  the  system 
design,  and  added  the  flexibility  needed  to  make  the  A/D 
conversion,  data  acquisition  and  storage  process  applicable 
to  the  problem  at  hand.  The  desired  functional  performance 
requirements  of  the  processing  unit  are  discussed  in  this 
section. 

1 •   A/D  control 

During  the  acquisition  phase  of  operation,  the 
processor's  main  task  was  that  of  controlling  the  A/D 
module.  3y  controlling  the  acquisition  process  under 
programmed  logic,  adjustments  to  the  sampling  rate,  channel 
samplinc  sequence,  and  real-time  filtering  of  the  data  could 
be  easily  effected. 

The  reconstruction  of  time-varying  analog  signals 
from  a  set  of  discrete  datum  points  represents  a  problem  of 
significant  magnitude.  Probably  the  single  most  important 
consideration  during  the  acquisition  phase  is  the  period  at 
which  samples  are  to  be  taken.  When  investigating  periodic 
signals,  frequency  content  is  generally  a  matter  of  prime 
interest.  Nyquist's  sampling  theorem  states  that 
egui- spaced   data,   with  two  or  more  points  per  cycle  of  the 
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highest  frequency,  will  allow  reconstruction  of  band-limited 
functions.  If  this  principle  were  not  observed,  a 
phenomenon  termed  "aliasing"  could  occur.  The  concept  of 
aliasing  is  shown  in  Fig  3  which  depicts  a  signal  sampled  at 
two  different  rates.  The  curves  drawn  through  the  two  sets 
of  points  represent  possible  reconstructions  of  the  original 
signal.  The  frequency  change  implied  by  the  dotted  curve  is 
an  "alias"  of  the  frequency  described  by  the  solid  curve. 
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FI0UR2    3      -     "ALIASING"      2FFECT 
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Other   considerations   related  to  sampling  rate  are 

the  number  of  data  points  required   for  adequate   analysis, 

the   amount   of    memory,    permanent  mass  storage,   and 

computation  time  required  in  processing  the  data. 

In  the  CCR  application,  it  was  predicted  that 
fundamental  driving  frequencies  in  the  range  of  1  to  20  Hz 
should  be  investigated;  and  that  frequency  content  up  to  the 
fifth  harmonic  would  be  of  possible  interest.  This  meant 
that  the  system  must  be  capable  of  sampling  the  analog 
channels  at  a  minimum  rate  of  200  Hz.  The  resulting  design 
achieved  a  500  Hz  sampling  rate  over  8  channels. 
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III.   HARDWARE 


A.   MDS-800  MICROCOMPUTER  DEVELOPMENT  SYSTEM 


In  its  basic  configuration,  the  INTEL  MDS-800 
Microcomputer  Development  System  consists  of  a  CPU,  16K  RAM, 
peripheral  interface  controller,  front  panel  controller, 
power  supply  and  enclosure.  With  the  exception  of  the 
enclosure  and  the  power  supply,  each  of  the  aforementioned 
items  is  in  the  form  of  one  or  more  printed  circuit  modules 
which  may  be  inserted  into  the  mainframe  of  the  MDS.  The 
MDS  may  be  directly  connected  to  the  following  peripheral 
devices  with  minimal  interfacing:  CRT  and  keyboard  console, 
high  speed  line  printer,  standard  Teletype  with  paper  tape 
reader  and  punch,  high  speed  paper  tape  reader,  and  a  high 
speed  paper  tape  punch.  This  section  describes  the 
essential  hardware  elements  of  the  system,  an  overall  view 
of  which  is  shown  in  Eig  u. 
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FIGURE  4  -   MDS-800  MICROCOMPUTER  DEVELOPMENT  SYSTEM 
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1  •   Emi2J!!  §.£££§.§.   ismorj  ^RAH)^ 

The  basic  block  of  RAM  is  a  16K  byte  module  of  high 
access  rate  volatile  dynamic  memory,  where  1K  denotes  2  to 
the  10th  cr  1024  bytes.  The  MDS  is  capable  of  addressing  4 
such  modules  or  54K  bytes  of  memory.  Of  the  64K  of  RAM  only 
62K  are  actually  usable  due  to  the  coexistence  of  a  2K  block 
of  read  only  memory  (ROM)  containing  the  MDS  Monitor 
program. 

Due  to  the  requirement  for  rapid  recording  of  large 
blocks  of  data,  the  maximum  number  of  RAM  modules  was 
installed.  A  RAM  module  is  illustrated  in  Fig  5  and  serves 
as  an  exampl?  of  the  typical  insertable  printed  circuit 
modules  referred  to  throughout  this  paper. 
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FIGURE  5  -   16K  BYTE  RANDOM  ACCESS  MEMORY  MODULE 
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2.   DISK  OPERATING  SYSTEM 

The  INTEL  Disk  Operating  System  (DOS)  consisted  of 
three  major  components,  a  dual  floppy  disk  drive  unit,  a 
disk  controller,  and  the  DOS  support  software.  The  addition 
of  the  DOS  provided  dramatic  increases  in  the  flexibility, 
speed,  and  mass  memory  storage  available. 

Each  7.5-inch  diameter  floppy  disk  (diskette)  had  a 
capacity  of  256K  bytes  of  semi-random  access  storage.  With 
the  dual  drive,  over  0.5  million  bytes  of  data,  program,  or 
other  information  could  be  accessed  with  relative  ease  and 
moderate  speed. 

The  software  support  package  offered  by  INTEL, 
called  ISIS,  was  evaluated  along  with  the  Digital  Research 
CP/M  disk  operating  system.  The  Digital  Research  software 
package  was  chosen  over  the  INTEL  package  due  to  the  higher 
speed  it  demonstrated  and  its  compatibility  with  the  3ASIC-E 
package  used  in  the  data  reduction  phase. 

CP/K   consists   of   several   utility   routines   in 

addition  to   the  Basic  Disk  Operating  System  (BDOS) .   These 

routines  allow   the   user   to   form   and   edit   disk   files, 

programs  or   data   files,   to   assemble   and   load  assembly 

language  programs,  and  a  powerful   debug   routine.    A   more 

complete  description   of  the  CP/M  BDOS  is  contained  in  ref. 
9. 

3  •   2I1IERAL  PURPOS  S  INPUT  0  UTPUT  MODUL  E  JI^0J_ 

The  basic  MDS-830  was   further   expanded   with   the 
installation   of   a  general  purpose  I/O  module.   This  module 
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provided  four  input  ports  and  four  output  ports  of  eight 
bits  each.  The  need  for  the  I/O  module  was  anticipated  for 
control  applications,  digital  input  or  outputs,  controlling 
an  X-Y  plotter,  or  other  general  purpose  applications.  This 
module  was  actually  intended  for  controlling  the  Scanivalve 
positioning  under  automatic  channel  sequencing.  However,  it 
was  later  decided  that  system  flexibility  would  have  been 
sacrificed  had  this  feature  been  implemented. 


4  . 


3INETRAC-800  ANALOG  TO  DIGITAL  CONVERTER  MODULE 


The  Datel  Sinetrac-800  A/D  converter  module  is  a  32 
channel,  12  bit  resolution  analog  to  digital  module 
specifically  designed  for  use  with  the  INTEL  MDS-800.  3eing 
buss  compatible  with  the  MDS  system,  the  module  was 
installed  within  the  MDS  chassis  and  the  wiring  harness  was 
brought  to  the  backplane  of  the  MDS  enclosure. 


The  main  elements  of  the  A/D  module  were: 
32  channel  analog  multiplexor 
sample  and  hold 
A/D  converter  sub-module 

addressing  and  hand-shaking  logic  circuitry 
Direct  Memory  Access  control  circuitry 


The  A/D  module  had  three  fundamental  modes  of 
operation : 

■  program  control 

■  program  control  with  automatic  sequencing 

■  Direct  Memory  Access  mode 

Reference  1  contains  a  complete  description  of  the 
A/D  module  including  operating  instructions  and  programming 
techniques. 
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Although  the  D.1A  mode  was  not  utilized  because  of 
its  requirement  of  an  INTEL  DMA  module  for  support,  future 
development  of  the  system  will  make  the  addition  of  the  DMA 
module  indispensable.  The  use  of  DMA  would  allow  the  A/D 
module  to  operate  at  its  full  capability  of  75  KHz  sampling 
rate.  This  increase  in • acgu isition  rate  would  significantly 
extend  the  range  of  the  system  in  terms  of  signal  frequency 
component  reconstruction. 

The  Sinetrac-800  also  provided  user  options  in. 
certain  operational  parameter  selection.  Selectable  by 
jumper  wire  were  input  signal  voltage  range  (5,  10,  or  20 
volts) ,  single  ended  or  differential  operation,  and 
interrupt  or  non-intercupt  operation.  The  options  in  use 
were:  plus  and  minus  5  volt  single  ended,  non-interrupt 
operation.  Details  concerning  the  use  of  jumper  options  are 
specified  in  ref.  1.   The  SINETRAC-800  is  depicted  in  Fig  6. 
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FIGURE  6  - 


SINETRAC-800  ANALOG  TO  DIGITAL  CONVERTER 
MODULE 
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IV.   SOFTWARE 


The  software  development  was  accomplished  in  four 
distinct  phases  and  involved  the  use  of  three  different 
programming  languages.  This  section  briefly  describes  each 
language  and  the  individual  program  modules  created. 


A.   LANGUAGES 


Every  computer  language  has  a  level  of  application  for 
which  it  was  designed.  The  three  languages  discussed  in 
this  section  were  used  to  accomplish  varying  degrees  of 
program  control.  A  high  level  programming  language  allows 
the  programmer  to  use  nearly  literal  or  sentence  form 
expressions  or  equations.  FORTRAN  is  an  example  of  a  high 
level  language.  A  low  level  language  on  the  other  hand,  is 
closely  related  to  the  machine  code  actually  used  by  the 
computer.  Machine  code  is,  of  course,  the  lowest  level 
programming  language  but  is  rarely  used.  Low  level 
languages  provide  the  programmer  with  complete  control  over 
memory  usage  and  CPU  instruction  sequences. 

1  .    803_C  Assembly  Language 

This  low-level  language  was  specifically  developed 
for  use  with  the  8080  microprocessor.  It  is,  however, 
similar  in  form  to  assembly  languages  in  use  with  other 
computers.  The  form  of  the  language  is  described  fully  in 
ref.   10,   therefore   only   the   merits   of  the  language  are 
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discussed  herein. 

The  use  of  assembly  language  offers  the  programmer 
direct  control  over  the  CPU  instruction  sequence.  Very 
efficient  utilization  of  available  program  memory  and 
optimization  of  program  execution  time  may  be  accomplished 
when  employed.  These  features  form  the  basis  for  the  use  of 
assembly  language  in  the  construction  of  the  data 
acquisition  and  ASCII  conversion  programs,  where  execution 
time  and  memory  allocation  are  importrant  considerations. 

One  distinct  disadvantage  to  the  use  of  assembly 
language  is  that  the  amount  cf  work  required  in  producing  a 
relatively  short  program  may  be  significant.  Several  pages 
of  documentation  are  necessary  to  make  the  program  readable, 
even  to  the  author  of  the  program.  Obviously,  tracing 
another's  assembly  language  program  is  very  difficult  even 
with  excellent  documentation. 


2. 


Ill* 


PL/M  is  a  medium-level  language  again  designed  for 
microprocessor  use.  It  offers  moderate  control  over  the  CPU 
instruction  sequence  while  providing  the  user  with  many  of 
the  features  available  only  in  high-level  languages.  In 
other  words,  PL/M  is  a  language  which  permits  the  user  to 
determine,  within  limits,  the  degree  of  control  he  desires. 
The  amount  of  machine  code  produced  by  PL/M  compilation  is 
about  half  again  that  resulting  from  a  functionally 
equivalent  assembly  language  program.  PL/M  is  ideal  for  use 
when  floating  point  mathematical  operations  are  not 
required,  or  when  time  and  memory  efficiency  are  not 
important  factors. 


PL/M 


was 


used 


in 


the 


construction   of   the 
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communicatiions  interface  program  called  IFACE  which  linked 
the  MDS-800  to  the  IBM-360  via  telephone  line.  PL/1!  may  be 
assembled  on  either  the  IBM-360  or  locally  on  an  MDS-800 
when    equipped    with    the   full    complement    of    64K   of   RAM. 

3 .       BASIC 

EASIC  is  a  high  level  language  which  is  gaining 
wide  acceptance  throughout  the  scientific  community. 
Similar  to  FORTRAN,  BASIC  provides  the  user  with  facility  in 
programming  mathematically  complex  routines  in  fairly 
familiar  algebraic  format.  The  3ASIC-E  compiler  and  run 
time  monitor  were  developed  for  8080  implementation  to  be 
used  in  conjunction  with  CP/M,  and  are  fully  described  in 
ref.  5. 

BASIC-S  was  used  in  the  data  analysis  routine  which 
may  be  easily  modified  to  suit  the  user's  needs.  A  summary 
of  the  commands  available  and  syntax  of  BASIC-E  can  be  found 
in  ref.   6. 


B.   PROGBAMS  AND  DISKETTE  FILES 


The  data  acquisition  and  reduction  process  was  a 
multiphase  sequence,  each  phase  consisting  of  one  or  more 
program  executions.  Each  program  resided  on  the  system 
diskette  under  its  individual  file  name.  The  system 
diskette  also  contained  the  CP/M  BDOS  and  each  of  its 
associated  utility  routines,  the  BASIC-E  compiler  and  run 
time  monitor.  The  system  diskette  was  inserted  into  disk 
drive  A,  while  the  data  diskette  was  inserted  into  disk 
drive  E.  Each  program  module  and  its  associated  support 
files  is  described  within  this  sub-section,  and   Appendix   E 
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contains  a  description  of  the  operating  procedures 


1. 


CONTROL 


A  control  file  called  CONTROL  was  formed  prior  to 
each  acquisition  run.  This  file  was  edited  and  maintained 
on  the  system  diskette  and  contained  both  text  and  control 
parameters  that  were  used  by  the  acquisition  program, 
ACQUIRE.  The  use  of  a  control  file  eliminated  the  need  for 
the  operator  to  re-enter  control  parameters  for  successive 
runs.  A  sample  CONTROL  file  is  contained  in  Appendix  F. 
The  order  of  the  passed  parameters  was  significant;  however, 
the  vertiage  or  content  of  the  string  variables  could  be 
entered  free-form.  The  AC2UIRE  program  would  only  recognize 
and  use  the  integer  value  of  parameters  which  were  preceded 
by  a  colon  and  followed  by  a  carriage  return  linefeed 
combination.  The  information  following  the  first  two  colons 
was  ignored,  allowing  the  date  and  run  number  to  be  entered 
but  not  passed  to  the  ACQUIRE  program.  The  meanings  of  the 
parameters  are  self-evident  from  the  sample  shown  in 
Appendix  F,  and  are  therefore  not  explained  here. 

2  .   ACQUIRE 

ACQUIRE  was  the  main  ■  program  which  performed  the 
data  acquisiton  function.  It  would  first  read  the  CCNTROL 
file  from  iisk  drive  A  and  display  it  on  the  CRT  for  the 
operator's  review.  Should  corrections  or  alterations  be 
required,  they  could  be  effected  at  this  time  by  editing  the 
CCNTROL  file.  With  the  CONTROL  file  in  order,  ACQUIRE 
proceeded  to  extract  the  necessary  control  parameters  and 
duplicated  the  CONTROL  file  on  the  diskette  in  drive  B. 
Using  the  extracted  control  parameters,  this  program  then 
managed  the  operation  of  the  SINETRAC-800  module,   CRT,   and 
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disk  drive  unit  so  as  to  scan  the  specified  analog  channels 
at  the  specified  rate  and  number  of  repetitions,  and  record 
the  data  on  the  data  diskette  in  disk  drive  B.  The  ACQUIRE 
program  accomplished  this  task  by  issuing  commands  to  the 
SIN2TRAC-800,  followed  by  data  to  be  written  or  read.  The 
SINETRAC-800  was  issued  the  initial  and  final  channel 
numbers,  a  start  scan  command,  and  a  start  conversion 
command.  When  an  analog  to  digital  conversion  was  complete, 
the  SINETRAC-800  changed  its  status  word  to  indicate  an  end 
of  conversion  (EOC) .  The  processor  would  then  read  in  the 
two  bytes  of  data  resulting  from  the  conversion.  Upon 
receipt  of  a  subsequent  start  of  conversion  command,  the  A/D 
module  would  automatically  step  to  the  next  analog  channel 
to  be  sampled  and  perform  a.  conversion.  When  the  entire 
range  of  channels  was  converted,  the  A/D  would  change  the 
status  word  to  indicate  an  end  of  scan,  simultaneously 
resetting  the  channel  selection  register  to  the  initial 
channel. 

The  generation  of  the  scan  period  timing  pulse  is  a 
topic  which  deserves  explanation  as  it  was  one  of  the  most 
difficult  portions  of  the  ACQUIRE  routine  from  a  programming 
standpoint.  The  MDS-800  front  panel  controller  module 
includes  an  interrupt  timer  which  may  be  turned  on  cr  off 
programmatically .  The  timer  is  actually  a  series  of  solid 
state  counters  which,  after  receiving  a  certain  number  of 
pulses  frcm  the  9.8  MHz  system  clock,  issues  a  pulse  to  the 
C?D.  This  interrupts  the  operation  of  the  8080  CPU,  causing 
the  program  to  execute  a  subroutine.  This  subroutine  then 
counts  the  number  of  interrupts  received  in  this  manner. 
When  the  number  of  interrupts  counted  reaches  a  value  which 
matches  that  prescribed  by  the  scan  period  control  parameter 
entered  by  the  CONTROL  file,  a  scan  instruction  is  issued  to 
the  SINETRAC-800  and  a  scan  sequence  is  initiated.  Each 
interrupt  occurs  at  0.977  ms.  The  fact  that  the  timer 
interrupts   at   nominal   1   as  intervals  became  the  limiting 
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factor  on  scan  rate.  In  order  to  increase  the  scan  rate, 
some  other  means  of  initiating  the  scan  must  be  used.  The 
rationale  for  using  the  interrupt  timer  in  the  first  place 
was  that  it  provided,  at  no  additional  expense,  a  highly 
accurate  time  base,  an  important  requirement  for  dynamic 
signal  analysis. 

Data  from  each  conversion  were  stored  in  sequential 
RAM  locations.  When  the  specified  number  of  scans  had  been 
performed,  the  data  stored  in  RAM  were  formatted  and 
transferred  to  the  data  diskette  in  disk  drive  B.  Each 
block  of  scans  was  written  into  a  file  called  DATA.nnn, 
where  nnn  was  the  decimal  sequence  number  for  that  file. 

The  process  continued  until  all  Scanivalve  channels 
were  sampled  and  logged,  the  diskette  space  was  exhausted, 
or  the  process  was  terminated  by  the  user.  If  the  process 
were  completed  without  mishap,  a  file  called  PROTECT  could 
be  written  on  the  data  diskette  at  the  users  option.  The 
PROTECT  file  prevented  further  data  from  being  recorded  on 
an  unprocessed  diskette. 

3 .    PROTECT 

The  PROTECT  file,  if  it  existed  on  a  data  diskette, 
prevented  additional  data  from  being  written  to  the 
diskette.  Normally  the  PROTECT  file  was  only  removed  from  a 
diskette  upon  successful  completion  of  the  redaction 
Drocess.  This  procedure  prevented  unprocessed  data  from 
being  inadvertently  destroyed  or  overwritten.  The  PROTECT 
file  could  also  be  removed  by  typing  "ERA  B:PROTECT"  at  the 
console. 
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4 .   DAT A. nnn 

Each  time  the  SCAN  subroutine  within  the  ACQUIRE 
program  was  executed,  a  DATA. nnn  file  was  created  on  the 
data  diskette.  This  file  contained  the  data  stream  which 
resulted  from  one  run.  At  the  completion  of  all  the  runs 
the  data  diskette  would  contain  several  DATA  files.  For 
example,  a  completed  data  disk  directory  might  be  as 
fellows: 

CONTEOL 

DATA. 000 

DATA. 001 

DATA. 002 

PROTECT 


The  first  16  bytes  of  data  on  each  DATA  file  form  a 
header  for  that  file,  and  contained  the  control  information 
relevant  to  that  file.  The  meaning  of  each  byte  within  the 
header  is  listed  below: 

Eyte  0  Initial  Analog  Channel 

Byte  1  Final  Analog  Channel 

Byte  2  Scanivalve  One  setting 

Byte  3  Scanivalve  Two  Setting 

3yte  4  No.  of  scans  (LSB) 

Byte  5  No.  of  scans  (MSB) 

Byte  6  Scan  period  (LSB) 

Byte  7  Scan  period  (MSB) 

Byte  8  Frequency  (LSB) 

Byte  9  Frequency  (MSB) 

Byte  A  throagh  F  not  used 

Subsequent  data  words  formed  the  body  of  the  DATA 
file.    A   DATA  file  was  composed  of  binary  information,  and 
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therefore  required  translation  into  ASCII   characters   prior 
to  being  read  by  the  BASIC  reduction  routine. 

5.   CONVERT 


The  CONVERT  program  was  an  assembly  language  routine 
which  read  the  desired  DAIA.nnn  file  into  RAM,  converted  the 
binary  values  to  ASCII  decimal  integers  and  created  a  file 
called  DATA.ASC  on  the  data  diskette.  This  was  necessary 
prior  to  each  execution  of  the  REDUCE  program,  as  the 
3ASIC-E  file  handling  would  only  accommodate  ASCII  coded 
disk  files.  This  process  could  have  been  made  a  part  of  the 
ACQUIRE  program  function;  however,  the  additional  number  of 
bytes  required  for  each  data  point  would  have  severely 
limited  the  amount  of  data  on  each  diskette. 

The  program  was  executed  by  typing  "CONVERT 
DATA.nnn"  at  the  console.  The  resulting  ASCII  type  file 
could  be  viewed  in  raw  unformatted  form  by  typing  "TYPE 
BrEATA. ASC". 


6 .   REDUCE. 

The  REDUCE  program  was  written  in  BASIC  and  was 
executed  by  typing  "RUN  REDUCE"  on  the  console.  Its 
function  was  to  read  the  DATA.ASC  file  from  the  data 
diskette  and  perform  the  reguired  numerical  analysis 
necessary  to  extract  the  Fourier  coefficients  of  the  signal 
wave  form  represented  by  the  data.  The  program  used  is 
contained  in  Appendix  C  and  a  discussion  of  the  reduction 
algorithm  is  presented  in  ref.  11. 

It  is  important  to  note  that  the  BASIC  routine  used 
in   this   application   may   be   easily   modified  to  suit  the 
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user's  needs.  For  that  matter,  an  entirely  different 
analysis  algorithm  could  be  substituted  with  equal  facility. 
In  effect,  the  function  of  the  program  was  not  of 
significance,  however,  it  served  as  a  vehicle  for 
development  and  testing  of  the  system.  The  demonstrated 
flexibility  and  ease  in  programming  afforded  by 
incorporation  of  the  BASIC  language  are  the  meaningful 
features . 

7.   IFACE 


This  PL/1  program  was  originally  written  by  an 
unknown  author  but  was  adapted  for  use  with  the  MDS-800 
through    modification    of  the    interfacing  routines. 

Its  purpose  was  to  allow  the  user  to  operate  the  CRT 
console  as  a  remote  time-share  terminal  in  conjunction  with 
the  R.R.  Church  I3M-350  operating  under  the  Cambridge 
Monitoring  System  {CMS)  .  The  program  listing  is  included 
for  documentary  purposes  in  Appendix  C.  It  also  provided 
for  automatic  bi-directional  transfer  of  disk  files  between 
the    I3M    and    MDS    systems,    a    useful    feature. 
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V.   SYSTEM  QUALIFICATION 


Any  design,  whether  hardware,  software  or  a  combination 
of  both,  must  be  thoroughly  evaluated  for  performance  under 
controlled  conditions  prior  to  its  introduction  in  an  actual 
field  environment.  The  test  which  the  design  should  undergo 
must  exercise  the  device  throughout  its  expected  range  of 
operation  so  that  actual  performance  limitations  may  be 
determined.  Qualification  testing  also  provides  the 
designer  with  quantitative  and  qualitative  measures  of  the 
system's  ccr.formance  to  the  design  criteria.  This  section 
discusses  the  qualification  tests  conducted  on  the  data 
acquisition  system,  and  an  interpretation  of  the  results 
obtained . 

The  main  objective  of  the  qualification  testing 
procedure  conducted  was  to  provide  a  level  of  confidence  in 
the  system's  ability  to  faithfully  track  the  input  signals, 
thereny  permitting  the  reduction  routine  to  accurately 
perform  numerical  operations  which  would  reconstruct  the 
desired  parameters  of  magnitude  and  phase,  while  filtering 
undesirable  frequency  components.  The  three  basic 
qualification  tests  conducted  in  the  determination  of  the 
system's  performance  characteristics  are  discussed  belcw. 


A.   DC    CALIBRATION 


Accompanying  the  SINET3AC-800  D/A  module  was  a  voltage 
calibration  and  scan  test  software  package.  This  program 
allowed  verification  of  the  accuracy  of  the   A/D   conversion 
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system  when  known  (accurately  measured)  DC  voltage  levels 
were  applied  to  the  individual  input  channels  of  the  A/D 
module.  The  results  of  this  test,  with  the  voltage  range  of 
the  devi.ce  set  at  plus  and  minus  five  volts  full  scale,  are 
shown  in  Fig  7.  This  voltage  range  was  chosen  over  the  20 
or  5  volt  full  scale  range  because  the  outputs  of  the  signal 
conditioning  amplifiers  had  historically  exhibited  bias  and 
excursion  characteristics  which  remained  well  within  this 
range.  Had  a  20-volt  full-scale  range  been  utilized, 
sensitivity  *ould  have  been  sacrificed,  whereas  a  5-volt 
range  would  have  resulted  in  an  overvoltage  condition  on  the 
A/D  converter  circuit. 


40 


a 


00 


• 

3 

n 

00 

UJ 
CC 

S 

s 

-z. 

w 

o 

r\ 

►— 1 

S 

in 

< 

CC 

m 

a  s 
>  _i 
w  < 

Li      LU 

in  o 
a:  < 

H    I- 

a 

> 

zi 

CL 

Z 


o 
> 


CC 
O 


cawi  mm  NoiiHaan© 


ui 


B.   SINUSOIDAL  SIGNAL  RECONSTRUCTION 


This  test  was  designed  to  evaluate  the  system's  ability 
to  accurately  acquire,  store,  and  reconstruct  a  sinusoidal 
input  signal  of  known  amplitude  and  phase  relationship  to  a 
reference  sinusoidal  signal. 

The  test  was  conducted  using  the  simple  operational 
amplifier  circuit  illustrated  in  Fig  8,  representing  a 
low-pass  filter. 

The  gain  and  phase  of  the  output  signal  relative  to  the 
input  signal  were  measured  by  using  the  Eallantine  true  RMS 
meter  and  an  AD-IU  phase  meter,  respectively.  These  data 
were  hand  logged  and  plotted  in  Figs  9  and  10  for  comparison 
with  the  gain  and  phase  parameters  extracted  by  the  analysis 
algorithm  discussed  in  section  IV.  A  very  high  correlation 
between  the  extracted  parameters  and  the  analog  measurements 
is  clearly  observable. 
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FIGURE   S  -  SINUSOIDAL  SIGNAL  RECONSTRUCTION  TEST  CIRCUIT 
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C.   SQUARE  WAVE  RESPONSE 


This  test  was  designed  to  evaluate  the  accuracy  of  the 
data  acquisition  system  in  reconstructing  the  higher 
harmonics  contained  within  a  periodic  signal.  Since  a 
square  wave  is  known  to  be  composed  of  only  odd  harmonic 
components,  with  known  relative  amplitudes,  the  Fourier 
coefficients  derived  from  this  test  were  easily  compared  to 
theoretical  results. 

3y  injecting  the  square  wave  input  into  more  than  one 
A/C  input  channel  simultaneously,  a  measurement  of  the 
interchannel  sampling  delay  was  possible  through  observation 
of  the  resulting  phase  shift  between  adjacent  channels. 
Compensation  for  the  artificially  induced  phase  lag  was 
accomplished  within  the  BASIC  data  reduction  algorithm. 
Referring  to  Fig  11,  which  illustrates  the  phase  shift 
problem  graphically,  delta  t  was  the  amount  cf  time  required 
to  switch  from  one  A/D  channel  to  the  next  and  complete  a 
conversion.  The  software  steps  for  the  switching  process 
amounted  to  74.5  micro- seconds  of  apparent  phase  lag.  3y 
adding  this  value  to  the  time  term  within  the  reduction 
algorithm,  the  phase  shift  problem  was  nearly  eliminated. 
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Apparent  Phase  Shift  Due 
Ta  Sampling  Delay 


FIGURE  11  -  PHASE  ERROR  DUE  TO  UTESHCHANHEL  SAMPLING  LAC 


hi 


The  results  of  the  harmonic  reconstruction  test  are 
shewn  in  Fig  12,  vrhich  compares  the  extracted  harmonic 
content  cf  the  square  wave  as  produced  by  the  REDUCE 
routins,  with  the  theoretical  expected  values.  The  test  was 
actually  performed  for  several  input  frequencies  ranging 
from  5  Hz  to  over  100  Hz,  however,  the  resulting  harmonic 
spectrum  is  shown  only  for  the  10  Hz  signal  so  as  to 
illustrate  as  many  harmonics  as  possible. 

For  comparison  purposes,  the  phase  shift  realized  with 
and  without  compensation  within  the  analysis  program  are 
plotted  as  a  function  cf  frequency  in  Fig  13. 
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VI 


SYSTEM  APPLICATION 


Subsequent  to  the  qualification  tests  and  refinement  of 
the  reduction  algorithm,  the  system  was  applied  to  the 
actual  experimental  environment  for  which  it  was  intended. 
The  system  was  integrated  into  the  CCR  airfoil  experimental 
set-up  as  illustrated  in  Fig  14.  This  phase  of  the 
development  was  conducted  for  two  important  reasons: 

*  Evaluate  the  performance  of  the  system  under  actual 
laboratory  conditions  in  search  of  further  improvment  areas. 

*  Examine  the  Coanda  sheet  pressure  profile  with 
respect  tc  phase  and  amplitude  while  sinusoidally  modulating 
the  olenum  oressure  of  the  airfoil  section. 


A.   OPERATING  CONDITIONS 


The  wind  tunnel  was  configured  to  operate  with  steady 
flow  during  this  initial  evaluation  run.  Only  the  plenum 
pressure  of  the  airfoil  section  was  modulated  sinusoidally 
with  various  driving  frequencies  ranging  from  3.7  Hz  to  13.7 
Hz. 

Previous  work,  presented  in  Refs  7  and  3,  produced 
measurements  of  the  Coanda  sheet  pressure  profile  using  data 
from  a  true  FMS  meter.  These  data  were  hand  logged  and 
plotted.  A  measurement  of  the  phase  relationship  was  not 
possible  using  this  technique,  as  the  phase  meter  was 
inaccurate  in  the  low  frequency  range  investigated. 
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Digital  data  acquisition,  therefore,  provided  the  first 
opportunity  for  observing  the  phase  shift  between  the 
driving  force  and  the  pressure  reaction  on  the  surface  of 
the  airfoil.  Included  in  Appendix  F  is  the  CONTROL  file 
used  in  this  experimental  run.  600  datum  points  were 
recorded  at  5-mill isecond  intervals  for  each  analog  channel. 
The  channels  sampled  were: 

1.  Ch  0 Plenum  reference  pressure 

2.  Ch  1 Scanivalve  pressure  (channels  10  thru  17) 

3.  Ch  2 Hot  wire  annemometer 

kz  each  frequency,  the  Scanivalve  was  cycled  along  each 
of  the  indicated  channels  which  corresponded  to  stations  23 
through  30  of  the  airfoil.  The  actual  logging  of  the  more 
than  86,000  data  points  required  approximately  45  minutes, 
of  which  approximately  35  minutes  were  devoted  to  effecting 
adjustment  of  the  tunnel  operating  conditions  and  driving 
frequency . 

Figures  15  through  20  show  the  graphical  results  of  the 
data  reduction  which  followed.  Credibility  is  lent  to  the 
results  by  the  close  correlation  achieved  with  the  previous 
investigative  efforts,  and  the  consistency  displayed  among 
results  of  individual  runs. 

The  graphical  results  of  the  phase  extraction  process 
are  presented  for  documentary  purposes  in  Figs  21  through 
26.  It  was  not  within  the  scope  of  this  work  to  analyze  in 
detail  the  aerodynamics  of  the  CCE.  Therefore,  the  reader  is 
directed  to  refs.  8  and  11  for  more  explicit  information 
regarding  the  CCR  analysis. 
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VII.   CONCLUSIONS  AND  RECOMMENDATIONS 


During  the  course  of  the  acquisition  system  development, 
modifications  were  constantly  made  with  the  intent  of 
improving  the  performance  or  operator  interface.  System 
qualification  and  implementation  disclosed  several 
additional  areas  in  need  of  improvement  and,  based  on  the 
experienced  gained  up  to  the  time  of  this  writing,  the 
upgrade  items  discussed  in  this  section  are  believed  to  be 
worthy  of  inclusion  in  any  further  development  or  future 
generations  of  the  subject  system.  In  some  cases 
alternative  solutions  to  existing  shortcomings  are 
presented,  taking  into  consideration  current  industry 
developments  in  compatible  hardware  modules. 


A.   INTERCHANNEL  SAMPLING  LAG 


As  previously  discussed,  the  finite  amount  of  time 
required  for  the  processor  to  switch  from  one  analog  channel 
to  the  next,  and  make  a  conversion,  caused  an  apparent  phase 
shift  in  the  resulting  reconstruction  of  two  or  more 
adjacent  channel  signals.  This  problem  was  partially 
overcome  by  time  adjustments  within  the  reduction  algorithm. 
However,  inaccuracies  were  still  attributable  to  this 
oroblem. 
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Two  additional  approaches  to  the  problem  remain: 

1 •   Interchange!  Delay 

Effecting  a  reduction  in  the  interchannel  delay 
time,  thereby  reducing  the  relative  influence  of  the  lag,  is 
one  possible  solution.  This  could  be  accomplished  by  the 
inclusion  of  a  DMA  module  within  the  MDS  mainframe  to 
augment  the  capabilities  of  the  SINETRAC-800.  This  solution 
although  not  absolute,  would  achieve  a  decrease  of  the 
interchannel  delay  from  74.5  microseconds  to  15 
microseconds . 

2  •   Individual  S  am_p_le  and  Hold  Circuitry 

The  system  as  described  herein  contained  only  one 
sample  and  hold  circuit  which  was  located  downstream  of  the 
multiplexor  unit.  Since  each  channel  shared  the  same  sample 
and  hoi  3  circuit,,  it  was  impossible  to  strobe  all  channels 
simultaneously.  Inclusion  of  an  independent  sample  and  hold 
circuit  element  dedicated  to  each  analog  channel  input  would 
eliminate  the  phase  shift  problem  completely,  since  all 
channels  would  be  sampled  at  precisely  the  same  instant  when 
triggered  by  a  common  source.  The  sample  and  hold  circuit 
would  maintain  the  DC  level  until  the  A/D  was  aole  to  poll 
the  individual  inputs  through  the  multiplexor.  This  concept 
is  illustrated  in  Fig  27. 
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s/h 


Single  Sample  and  Hold 


s/c 

s/h 

M 

u 

X 

k/V 

Multiple  Sarnnle   and  Hold 


FIGUBE  -  27     SINGLE  VS  MULTIPLE  SAMPLE  AND  HOLD  CONCEPT 
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B.   SYSTEM  ACQUISITION  SPEED 


As  presented,  the  acquisition  system  was  limited  to  an 
absolute  maximum  sampling  rate  of  500  Hz  for  more  than  one 
analog  channel  input.  This  rate  could  be  improved  for  a  few 
more  channels  to  a  maximum  of  1  KHz  with  modifications  to 
the  timer  interrupt  and  use  of  the  program  interrupt  mode  on 
the  SINETHAC-300. 

For  any  significant  improvement,  however,  the  actual 
start  of  scan  trigger  would  require  alternate  sourcing.  The 
A/D  board  provided  for  an  on-board  control  of  the  scan  clock 
or  external  triggering.  A  modification  to  the  triggering  of 
the  scan  clock  could  be  effected  with  minimal  additional 
circuitry  of  local  design,  utilizing  a  general  purpose 
proto-typing  circuit  board  for  generation  of  a  strobe  or 
sensing  cf  an  external  syncronization  pulse.  It  is 
important  to  realize  that  any  such  design  should  attempt  to 
retain  software  control  over  the  sampling  rate  so  as  net  to 
lose  this  flexibility  feature. 

Tremendous  reductions  in  software  could  be  realized  with 
the  addition  of  the  Direct  Memory  Access  module.  This 
addition  wculd  increase  the  maximum  scan  rate  attainable 
from  .5  KHz  to  approximately  11  KHz  for  6  channels  or  from  1 
KHz  to  33  KHz  for  2  channels  of  input. 

In  short,  the  addition  of  a  DMA  module  is  highly 
recommended  in  consideration  of  the  multiple  improvements  in 
system  performance  that  it  affords  for  a  modest  expenditure. 
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C.   DATA  PEEDCTION 


The  concept  of  locally  reducing  the  data  has  many 
advantages,  and  likewise  disadvantages,  which  must  be 
considered  in  future  modifications  to  the  system.  The 
decision  to  locally  reduce  data  was  based  upon  two  major 
factors.  First,  it  was  desired  that  the  feasibility  of 
local  reduction  on  a  microprocessor  be  investigated. 
Secondly,  during  the  design  stages  the  only  data 
communications  link  available  to  the  W.R.  Church  computer 
facility  I5M-360  for  remote  processing  was  via  Teletype 
speed  (110  baud)  modem.  Anticipating  the  generation  of 
250,000  words  of  data  each  experimental  session, 
transmission  over  the  existing  time-share  system  network  was 
deemed  unreasonable.  Transfer  of  this  volume  of  data  would 
have  required  at  best  ~f  hours  real  time,  assuming  minimal 
handshaking  and  system  interruptions.  The  potential  of 
generating  several  data  diskettes  during  one  experimental 
session  renders  a  slow  transmission  rate  link  totally 
impractical.  The  CP/CMS  system  did  not,  at  that  time, 
exhibit  the  reliability  necessary  for  such  a  link  to  be  used 
effectively.  At  the  time  of  this  writing  the  computer 
center  was  completing  the  installation  of  communication 
links  capable  of  9600  baud.  transmission  rates.  At  this 
rate,  a  full  diskette  (250K  bytes)  could  be  transmitted  in 
as  few  as  5  minutes.  This  capability  would  greatly  enhance 
the  computing  power  of  the  system,  considering  the  increased 
sophistication  of  reduction  techniques  and  output  facilities 
(plotters,  high  speed  printers,  etc.)  which  would  then  be 
made  available. 

Should  the  autonomy  of   the   system   be   an   over-riding 
consideration,   it  is  recommended  that  a  high  speed  printer, 
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Digital  to  Analog  (D/A)  module  and  an  X-Y  plotter  be 
included  as  suplementary  system  peripherals.  The  inclusion 
of  an  external  mathematics  module  would  further  improve  the 
system's  computational  speed  and  efficiency.  Such  a  module, 
commercially  available,  would  perform  all  floating-point 
mathematical  operations  (add,  subtract,  multiply  and  divide) 
in  circuitry  external  to  the  8080  microprocessor  at 
approximately  ten  times  the  speed  currently  available.  The 
addition  of  these  modules  and  peripherals  would  upgrade  the 
system  into  a  completely  independent,  highly  flexible  data 
acquisition  and  computational  device  capable  of  a  multitude 
of  data  legging  or  analytical  tasks. 
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APPENDIX  A 


GLOSSARY 


1.  accuracy:  The  ability  of  a  measurement  system  to 
determine  the  true  level  or  state  of  a  variable  in 
terms  according  to  standards  of  reference. 

2.  A/D:  analog  to  digital  (adjective  or  noun) 

3.  Alias:  When  varying  signals  are'  sampled  at  equally 
spaced  intervals,  two  frequencies  are  considered  to  be 
aliases  of  one  another  if  they  cannot  be  distinguished 
from  each  other  by  an  analysis  of  their  equally  spaced 
val ues. 

U.  ASCII:  American  Standard  Code  for  Information 
Interchange.  This  is  a  seven-bit-plus-parity  code 
established  by  the  American  National  Standards 
Institute  to  achieve  cpmpatibility  between  data 
services.   Also  called  USASCII. 

5.  assembly:  A  listing  which  contains  both  source  code  and 
machine  code. 

6.  BAUD:  A  data  transmission  rate  expressed  in  3ITs  per 
second. 

7.  3IT:  Binary  digiT.  A  single  unit  of  information  in  a 
binary  word. 

e.  buffer:  A  group  of  memory  locations  used  to  store 
specific  data  (input  data,  constants,  output  data, 
etc  .)  . 
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9.   byte:   An  eight-BIT  word  which  is  processed  as  a  single 
quantity . 

10.  CPU:  Central  Processing  Unit.  The  area  of  the 
microprocessor  which  computes  and  sequences  all  logic 
and  arithmetic  functions. 

11.  CRT:  Cathode  Ray  Tube  -  A  television-like  picture  tube 
used  in  visual  display  terminals. 

12.  D/A :  The  inverse  of  the  A/D  process. 

13.  DMA:  Direct  Memory  Access  -  a  facility  that  permits  I/O 
transfers  directly  into  or  out  of  memory  without 
passing  through  the  processor's  general  registers; 
either  performed  independently  of  the  processor  or  on  a 
cycle-stealing  basis. 

14.  EPRCM:  erasable/programmable  read  only  memory 

15.  Folding  Frequency:  The  lowest  frequency  which  is  its 
own  alias,  or  that  which  is  one-half  the  sampling  rate 
when  samples  are  continuously  made  at  equal  intervals. 

16.  I/O:  input/output 

10 

17.  K:  A  suffix  which  indicates  a  group  of  1024  (2   )  items 

as  in  *4K  of  memory1  meaning  4096  memory  locations. 

18.  Lag:  A  difference  in  time  of  occurrence  between  two 
events. 

19.  machine  code:  The  BIT  patterns  actually  used  by  the  U-P 
in  order  to  carry  out  its  assigned  logic  functions. 

20.  MODEM:  Modulator  DEModulator  -  an  electronic  device 
which  modulates  signals  transmitted  over  communications 
circuits. 

21.  MUX:  a  multiplexing  device 

22.  ,  nibble:  The  upper  or  lower  four  BITs  in  one  byte. 
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23.   page:  a  256  byte  segment  of  memory 

2U.  RAM:  Random  access  memory.  Volatile  memory  used  for 
variable  storage  and  data  manipulation. 

25.  register:  A  storage  location  located  in  the  CPU. 

26.  Resolution:  The  ability  to  determine  signal  differences 
in  varying  signals. 

27.  ROM:  read  only  memory,  non-volatile 

28.  Sample  and  Hold:  A  device  for  sampling  the  amplitude  of 
a  signal  at  a  given  time  and  holding  that  amplitude. 

29.  Sampling  Theorem:  Ny'quist's  result  that  equi-spaced 
data,  with  two  or  more  points  per  cycle  of  highest 
frequency,  allows  reconstruction  of  band-limited 
functions. 

30.  software:  The  program  which  resides  in  the  Q-P's 
memory . 

31.  source  code:  The  program  written  by  the  user. 

32.  U-P:  microprocessor 
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APPENDIX  3 


PROGRAM  PLOW  DIAGRAMS 
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HCQLIIRE  PRDGRHM  FLOW  DIHGRRM 


EXTRflCT 

CONTROL 

PfiRnHETER5 


DIS'LHY 

•control'  file 

DN  CRT 


Y  E  5. 


HRITE  'CONTROL' 
FILE  ON 
DISC  3 


5 
in 


'EDIT  CONTROL' 


V 
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hcquire  PRDGRRM  FLOW  DiflGRRM  CCDNT) 


SCFN 


SEND  INITIAL 
CHRNHEL  NO. 
TD  51NETRRC 


INITIALIZE  AND 
5THHT 
TIMER 


l»l  TD  5CRN5 


WRITE  DATA  TD 
DISK  FILE 
'DflTR.NNH' 


NMJ  -  NNN  +  1 


WRITE  PROTECT 
FILE 

m  DISK  B 


RERD  TIME 
RND  STORE 
IN  BUFFER 


•■  SCRN 


CRLL:  T5VC 
INTRPT  SERVICE 

51SRCUT1NE 


*  5TDP 
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HCQUIRE  PRDERHM  FLOW  DIRERHM  CCDNT) 


I  SUE  5TBRT 

CONVERSION  CMD 

TO  5INETRHC 


RERD  T«n  DRTfl 

bytes  from  s/t 
store  in  buffer 


REHO 

5TR7US  BYTE 

BSUM 


ERROR: 
STORE  FLfiS 
IN  DHTH  BUFFER 


RETURN 


V 
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CONVERT  PRDERHM  FLDW  CHART 


5TDP  H»- 


YE5 


CONVERT 


REHD  FILE  NAME 
AND  TYPE 

FHOH  CENEDLE 


OPEN  AND  READ 
ENTIRE  FILE 
INTO  MEMORY 


CDNYERT  THD 

BYTES  OF  DATR 

&NTD  ASCII  CHAR5 


3Lfl<T  CHARACTERS 

AND  COMMA  IN 

WRITE  BUFFER 


HRITE  RECORD  TO 
DRTA.ASC  FILE 

ON  DISC  3 


NO 
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APPENDIX  C 


PROGRAM  LISTINGS 
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0000 
0001 
0002 
0003 


0010 
0010 

00  i  1 

001  I 
0013 
0012 
0012 
0013 
0001 
0080 
0000 


G0F4 
00F5 
00F5 
00F6 
00F7 
00F7 
00FC 
OOFF 


0005 
0000 
005C 
0080 
0001 
0002 
OOOD 
OOOA 


****************************************** 

EQUATES  FOR  DATA  ACQUISITION  MODULE 
PORT  ASSIGNMENTS 


PORTO 

EQU 

0 

P0RT1 

EQU 

1 

P0RT2 

EQU 

2 

P0RT3 

EQU 

3 

SINETRACK  800  ADDRESS  ASSIGNMENTS 

BASE 

EQU 

10H 

DSTAT 

EQU 

BASE 

DDATA 

EQU 

BASE+1 

START 

EQU 

BASE  +  1 

CONV 

EQU 

BASE  +  3 

FINAL 

EQU 

BASE  +2 

RDCUR 

EQU 

BASE+2 

RDFNL 

EQU 

BASE+3 

EOC 

EQU 

1 

EOS 

EQU 

BOH 

DCMD 

EQU 

0 

GENERAL 

I/O  ASSK 

3NMENTS 

TDATA 

EQU 

0F4H    ; 

;TTY  DATA 

TSTAT 

EQU 

0F5H 

;TTY  STATUS 

TCMD 

EQU 

0F5H 

;TTY  CONTROL 

CDATA 

EQU 

0F6H     ; 

;CRT  DATA 

CSTAT 

EQU 

0F7H    ; 

;CRT  STATUS 

CCMD 

EQU 

0F7H    : 

;CRT  CONTROL 

INTMSX 

EQU 

OFCH     ; 

ilNTERUPT  MASK 

RCLK 

EQU 

OFFH    ; 

REAL  TIME  CLOCK 

GENERAL 

EQUATES 

ENTRY 

EQU 

005H     ; 

;BDOS  ENTRY  POINT 

BOOT 

EQU 

OOH     ; 

.BOOT  POINT 

TFCB 

EQU 

05CH     ; 

[DEFAULT  FCB 

TBUFF 

EQU 

080h    ; 

.DEFAULT  BUFFER 

TXRDY 

EQU 

1 

RXRDY 

EQU 

2 

CR 

EQU 

ODH 

LF 

EQU 

OAH 

. ****** ******************************* ****** 
\  BUFFER  ALLOCATION  & 
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DATA  ORGANIZATION 


******************************************* 


OlOO 

0100 

0103 

010F 

01  1C 

0127 

0137 

0150 

0165 

017E 

0193 

01  At 

01EE 

01CD 

01E0 

01F3 

0206 

021A 

021B 

021D 

021F 

0221 

0223 

0225 

022B 

022D 

022E 

022F 

0230 

0231 

0232 

0233 

2000 

2000 
2001 
2002 
2003 
2004 
2006 
2008 
200A 
200C 
0400 

0400 

0  403 


C30004 

5245414420MSG1 

5752495445MSG2 

4449534E20MSG3 

4449524543MSG4 

494E56414CMSG5 

0D0D0D414EMSG6 

0D0D0D4544MSG7 

0D0D0D4441MSG8 

54494D4520MSG10: 

4441544120MSG1 1 : 

474F4F4420MSG12: 

00434F4E54CNTRL: 

0050524F54PRTCT: 

0043414C56CALIE: 

0044415441DATA: 

00        EOFLG: 

3000       TIME: 

0000       TIMO: 

0000       3CT0: 

0000      POINT: 

0000      3CNTR: 

OOOOOOOOOOWORK: 


0000 

00 

00 

00 

00 

00 

00 

00 


00 
00 
00 
00 

0000 
0000 
0000 
0000 

ocoooooo 


3 1 FF  1  F 
214207 


PA3ER: 

RODS: 

SVOO: 

SV01: 

SV10: 

SV11: 

FLA 30: 

FLA31: 

DEUF: 

ICHNL: 

FCHNL: 

SVO: 

SV1: 

SCANS: 

SC.MRT: 

FREG: 

DUMY: 


BEGIN: 


ORG 
JMP 

DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
DW 
DW 
DW 
DW 
DW 
DB 
DW 
DB 
DB 
DB 
DB 
DB 
DB 
DB 
ORG 

DE 
DB 
DB 
DB 
DW 
DW 
DW 
DW 
DW 
ORG 

LXI 
LXI 


100H     ;VARIABLE  AREA 

BEGIN 

'READ  ERROR  $' 

'WRITE  ERROR  $* 

•DISK  FULL  $' 

•DIRECTORY  FULL  $' 

'INVALID  INPUT  PARAMETER  $' 

ODH,ODH,ODH, 'ANY  CHANGES?  Y/N  $ 

ODH,ODH,ODH, 'EDIT  CONTROL  FILES 

ODH,ODH,ODH, 'DATA  DISK  PROTECTS 

'TIME        SVO       SV1  $' 

'DATA  TRUNCATED  Sf 

•GOOD  RUN?  Y/N  $' 

0, 'CONTROL     •,0,0,0,0,0,0,0 

0, 'PROTECT     ',0,0,0,0,0,0,0 

0,'CALVALU     ',0,0,0,0,0,0,0 

0,'DATA        ',0,0,0,0,0,0,0,0 

0 

0 

0 

0 

0 

0 

0,0,0,0,0,0 

0 


0 
0 
0 
0 
0 
0 
0 
2000H 

0 

0 

0 

0 

0 

0 

0 

0 

0,0 

400H 


BUFFER  POINTER 
SCAN  COUNTER 

; WORKING  AREA 
PAGE  COUNTER 
RECORDS  STORAGE 
INITIAL  SCANIVALVE  0  B 
FINAL  SCANIVALVE  0  PCS 
INITIAL  SCANIVALVE  1  B 
FINAL  SCANIVALVE  1  PG£ 
FLAGO 
FLAG1 
START  GF  DATA  ARtn 


; START  OF  PROGRAM  AREA 


SP,1FFFH;INITIALIZE  STACK 
H,TSVC   ;LOAD  INTERUPT  VtCTGR 
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0406 
0408 
040B 
040E 
041  1 


0414 
0417 

041A 
041C 
041D 
041E 
041F 
0420 
0421 
0424 
0427 
042A 
042D 
0430 
0433 
0436 
0437 
043A 

043D 
0440 
0443 
0445 
0448 
044E 
044£ 
0451 
0454 
0457 
045A 
045D 
0460 
0463 
0466 
0469 
046C 
046D 
046F 
0470 


3EC3 

320800 

220900 

CD1404 

C30000 


CD1705 

210F02 

3E30 

77 

23 

77 

23 

77 

3A2E02 

320220 

3A3002 

320320 

CD4108 

119301 

CD1 108 

AF 

323202 

323302 

1 10040 

21 1020 

0£00 

CDE1F9 

CDE808 

2A1&02 

CD340S 

CD0&05 

3A0220 

CD2708 

CD0B05 

3A0320 

CD2708 

CD0E05 

CDC405 

2A2102 

7C 

D620 

67 

29 


MVI  A,0C3H 

STA  08H 

SHLD  09H 

CALL  AUTO 

J  MP  EOOT 

AUTO  -  AUTOMATIC  CONTROL  SEQUENCE 
USES  THE  EXISTING  CONTROL  FILE  IF 
IF  VALID,  SCANS  THE  SPECIFIED  ANALOG 
CHANNELS  AND  RECORDS  DATA  ON  DISK 


AUTO: 


AUT10 


CALL 
LXI 

MVI 

MOV 

INX 

MOV 

INX 

MOV 

LDA 

STA 

LDA 

STA 

CALL 

LXI 

CALL 

XRA 

STA 

STA 

LXI 

LXI 

MVI 

CALL 

CALL 

LHLD 

CALL 

CALL 

LDA 

CALL 

CALL 

LDA 

CALL 

CALL 

CALL 

LHLD 

MOV 

SUI 

MOV 

DAD 


PRLOAD 

H,DATA+ 

A,'0* 

M,A 

H 

M,A 

H 

M,A 

SVOO 

SVO 

SV10 

SV1 

CRLF 

D,MSG10 

PRINT 

A 

FLAGO 

FLAG1 


;VALID  CONTROL  FILE? 
9  ;ADDR  OF  EXTENSION 
JASCII  ZERO 


;F 


ETCH  INITIAL  CHANNEL 
INITIALIZE  SVO 
;FETCH  INITIAL  CHANL 
INITIALIZE  SV1 
;CARRIAGE  RET  LN  FEED 
; "TIME,  SVO, SV 1" 

;CLEAR  ACCUMULATOR 
;CLEAR  FLAGO 
;CLEAR  FLAG1 


D,4000H  ;SET 

H,DBUF+10H 

C,0 

0F9E1H 

SETVLV 

TIME 

PRHL 

TAb 

SVO 

PHEX 

TAB 

SV1 

PHEX 

TAb 

SCAN 

POINT 

A,H 

20H 

H,A 

H 


HIGH  ADDRESS 


;FETCH 
;PRINT 

;FETCH 
;PRINT 


CURRENT  TIME 
H,L  ON  CRT 


iSCII  PAIR 


;FETCH  BUFFER  POINTER 


;SKIFT  LEFT  ONE 
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0471 
0474 
0476 
0477 
047A 
047D 

047E 
047F 
0480 
0483 
0486 
0489 
048C 
048F 
0490 
0493 
0494 

0497 
0499 
049C 
049F 
04A0 
04A3 

04A6 

04A8 


D27E04 

26FF 

E5 

11AE01 

CD1 108 

El 

7C 

3C 

322D02 

210020 

1 10602 

CD9507 

3A2F02 

47 

3A0220 

B8 

C2A604 

3EFF 

323202 

3A2E02 

3D 

320220 

C3AB04 

FE18 

CA9704 


04AB  3A3102 
04AE  47 
04AF  3A0320 
04B2  B8 
04B3  C2C504 


04B6 
04E8 
045B 
04EE 
04BF 
04C2 

04C5 
04C7 

04CA 

04CD 
04CE 
04D1 
04D2 
04D3 


3EFF 

323302 

3A3002 

3D 

320320 

C3CA04 

FE30 
CAB604 

3A3202 
47 

3A3302 
4F 

AO 
C2F504 


AUT20: 


AUT21: 


AUT22: 
AUT24: 


AUT31: 


AUT32; 
AUT34: 


JNC 

MVI 

PUSH 

LXI 

CALL 

POP 

MOV 

I  MR 

STA 

LXI 

LXI 

CALL 

LDA 

MOV 

LDA 

CMP 

JNZ 

MVI 

STA 
LDA 
DCR 
STA 
J  MP 

CPI 

JZ 

LDA 
MOV 
LDA 
CMP 
JNZ 

MVI 

STA 
LDA 
DCR 
STA 
JMP 

CPI 

JZ 

LDA 
MOV 
LDA 
MOV 
ANA 
JNZ 


AUT20 

H,OFFH 

H 

D, MS  311 

PRINT 
H 

A,H 

A 

RCDS 

H,DBUF 

D,DATA 

WRFILE 

SV01 

B,A 

SVO 

B 

AUT22 

A,OFFH 

FLAGO 

SVOO 

A 

SVO 

AUT24 

24 
AUT21 

SVli 

B,A 
SV1 
B 
AUT32 

A,OFFH 

FLA31 

SV10 

A 

SV1 

AUT34 

48 

AUT31 

FLAGO 
B,A 

FLAGl 
C,A 
B 
EXIT 


;SET  MAX  FILE  LENGTH 
;"DATA  TRUNCATED" 


NUMBER  RCDS  TO  WRITE 
INCREMENT  BY  ONE 
STORE  IN  RCD  COUNTER 
POINT  TO  BEG  OF  DATA 
DATA  FCB 

WRITE  THE  DATA  FILE 
FETCH  LST  TO  BE  SCND 

FETCH  CURRENT  SVO 

SAME? 

NO  -  DON'T  SET  FLAGO 


SET  FLAGO 

FETCH  FIRST  TO  SCAN 

RESET  CURRENT  CHNL 


MAX  VALUE  cXCEEDED? 
YES  -  SET  FLAGO 

LAST  SV1  TO  SCAN 

FETCH  CURRENT  SV1 

SAME? 

NO  -  DON'T  SET  FLAGl 


SET  FLAGl 

FETCH  1ST  TO  SCAN 

RESET  CURRENT  CHNL 


;MAX  VALUE  EXCEcDED? 
;YES  -  SET  FLAGl 

;FETCH  FLAGO 

;FETCH  FLAGl 

;BOTH  SET? 

;YES  -  EXIT  AUTO  MOD: 


Qk 


NEXT: 


04D6 

3A0220 

04D9 

3C 

04DA 

320220 

04DD 

3A0320 

04E0 

3C 

04E1 

320320 

04E4 

211102 

04E7 

7E 

04E8 

3C 

04E9 

77 

04EA 

FE3A 

04EC 

DA3D04 

04ZF 

3630 

04F1 

2B 

04F2 

C3E704 

04F5 

11BE0I 

04F8 

CD1 108 

04FB 

CDFC07 

04FE 

FZ59 

0500 

CO 

0501 

1 1Z001 

0504 

CD5106 

0507 

CDAE08 

050A 

C9 

050B  0608 


050D 
050F 
0512 
0513 
0516 


3E20 

CD0508 

05 

C20D05 

C9 


0517 
051A 
051D 
0520 
0523 
05  26 
0527 
052A 
052B 
052E 


CD5008 

11CD01 

21 1020 

CD7007 

1 1 1C20 

D5 

CD1 108 

£1 

CDDB06 

CDDB06 


NEXT1 


EXIT: 


TAB: 


TAB1 


LDA 
INR 
STA 
LDA 
INR 
STA 
LXI 

MOV 

INR 

MOV 

CPI 

JC 

MVI 

DCX 

JMP 

LXI 

CALL 

CALL 

CPI 

RNZ 

LXI 

CALL 

CALL 

RET 

MVI 


;STEP  ONCE 


SVO 

A 

SVO 

SV1 

A 

SV1      ;STEP  ONCE 

H,DATA+11  ;LOAD  ADDR  OF  EXT 

A,M  ;FETCH  ASCII  VALUE  OF  LSB 


A 

M,A 
• .  • 

AUT10 
M,30H 
H 
NEXT1 

D,MSG12 
PRINT 
CRTIN 
•Y' 

D,PRTCT 

SETFCB 

MAKE 


B,8 


INCREMENT  IT 
RESTORE  IN  MEMORY 
EXCEED  9? 
NO  -  SCAN  AGAIN 
RESTORE  IN  MEMORY 
GET  NEXT  MSB 
ADJUST  NEXT  MSB 

"GOOD  RUN  Y/N" 


;GET  CHAR  FROM  CONS 
;YES  RESPONSE? 
;N0  -  RETURN 


; WRITE  PROTECT  FILE 


jCOUNTER  FOR  8  BLANKS 


MVI 

CALL 

DCR 

JNZ 

RET 

*      PRLOAD 


A,20H    ;ASCII  BLANK 

CRTOUT   ;SEND  TAB  CHAR  TO  CRT 

B 

TAB1 


-  READS  IN  CONTROL  FILE  AND 
EXECUTES  IF  VALID 


PRLOAD: 


CALL  LOGA     ;LOGIN  DISK  A 

LXI  D,CNTRL  ;PT  TO  CNTRL  FILE  BLK 

LXI  H,DBUF+10H  ;PT  TO  DATA  BUFFER 

CALL  RDFILE   ;RD  CNTRL  FILE 

LXI  D,DBUF+10H 

PUSH  D       ;SAVE 

CALL  PRINT    ;DISPLAY  CONTROL  FILE 

POP  H        ;RESTORE  H 

CALL  COLON    ;LOOK  FOR  FIRST  COLON 

CALL  COLON    ;LOOK  FOR  2ND  COLON 
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0531 

CDDB06 

0534 

E5 

0535 

CDE306 

0538 

220420 

0535 

El 

053C 

CDDB06 

053F 

E5 

0540 

CDE306 

0543 

220620 

0546 

El 

0547 

CDDB06 

054A 

E5 

054B 

CDE306 

054E 

7D 

054F 

320020 

0552 

El 

0553 

CDDB06 

0556 

E5 

0557 

CDE306 

055A 

7D 

055B 

320120 

055E 

El 

055F 

CDDB06 

0562 

E5 

0563 

CDE306 

0566 

7D 

0567 

322E02 

056A 

El 

056b 

CDDB06 

056E 

E5 

056F 

CDE306 

0572 

7D 

0573 

322F02 

0576 

El 

0577 

CDDB06 

057A 

E5 

057E 

CDE306 

057E 

7D 

057F 

323002 

0582 

El 

0583 

CDDB06 

0586 

E5 

0587 

CDE306 

058A 

7D 

058b 

323102 

058E 

El 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

SHLD 

SCANS 

POP 

H 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

SHLD 

SCNRT 

POP 

H 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

MOV 

A,L 

STA 

ICHNL 

POP 

H 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

MOV 

A,L 

STA 

FCHNL 

POP 

H 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

MOV 

A,L 

STA 

SVOO 

POP 

H 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

MOV 

A,L 

STA 

SV01 

POP 

H 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

MOV 

A,L 

STA 

SV10 

POP 

H 

CALL 

COLON 

PUSH 

H 

CALL 

FLTHX 

MOV 

A,L 

STA 

SV11 

POP 

H 

;FIND  THIRD  COLON 

jFLOATING  TO  HlX 
;STORE  HEX  IN  SCANS 

jFIND  NEXT  COLON 

jFLOATING  TO  HEX 

;STORE  IN  SCAN  RATE 

;FIND  NEXT  COLON 

; CONVERT 

;FETCH  RETURNED  VALUE 

;PUT  IN  INITIAL  CHNL 


;FETCH  RETURNED  BYTE 
;  STORE  IN  FINAL  CHNL 


;  1ST  SCANIVALVE  0  SET 


;LST  SCANIVALVE  0  SET 


;  1ST  SCANIVALVE  1  SET 


;LST  SCANIVALVE  1  SET 


x^x^x*********;************:*:******:******:.*::**** 

CHECK  WITH  OPERATOR  FOR  VALID  CONTROL 

FILE 

**** ************* *************************** 
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058F 
0592 
0595 
0598 
059A 
059D 


05A0 
05A3 
05A4 
05A7 
05AA 
05AD 
05E0 
05E3 
0  5B4 
05B7 
05BA 
05BD 
05C0 
05C3 


05C4 
05C5 
05C6 
05C7 
05C8 
05CE 
05CD 
05D0 
05D2 
05D5 
05D8 
05DB 
05DE 
05E1 
05E4 
G5E7 
05EA 


115001 

CD1 108 

CDFC07 

Fl4E 

116501 

C2DA07 


3A6B00 

3C 

322D02 

CD5808 

11E001 

CD5106 

CDBc.08 

3C 

117B01 

C2DA07 

1 1CD01 

211020 

CD9507 

C9 


E5 

D5 

C5 

F5 

3A0020 

D31  I 

3A0120 

D312 

2A0620 

221 D02 

21FD05 

CD2E07 

2A0420 

222302 

2A1E02 

21 102C 

222102 


LXI 

D,MSG6 

;"ANY  CHANGES?" 

CALL 

PRINT 

CALL 

CRTIN    ; 

;GET  CHAR  FROM  CONS 

CPI 

•n*    ; 

;"N0"  RESPONSE? 

LXI 

D,MSG7   ; 

["EDIT  CONTROL  FILE" 

JNZ 

ERREX    ; 

[EXIT  PROGRAM 

•  ******************************************** 

;       WRITE  THE  CONTROL  FILE  ON  DISK  B 

•  ****************************************:£** 


LDA 

INR 

STA 

CALL 

LXI 

CALL 

CALL 

INR 

LXI 

JNZ 

LXI 

LXI 

CALL 


TFCB+15 

A 

RCDS 

LOGB 

D.PRTCT 

SETFCB 

SEARCH 

A 

D,MSG8 

ERREX 

D,CNTRL 

H,DBUF+10H  ;PT 

WRFILE      ;WRITE 


;F£TCH  RECORD  COUNT 


IN  MEMORY 
DISK  B 
PROTECT  BLOCK 


STORE 

LOGIN 

PT  TO 

SET  FCB 

SEARCH  FOR  PROTECT 

DOES  IT  EXIST? 

"DATA  DISK  PROTECTED" 
EXIT  PROGRAM 
CONTROL  BLOCK 
TO  STORED  INFO 
CONTROL  TO  B 


YES  - 

PT  TO 


RET 

SCAN  -   COMPLETES  N  SCANS  OF  M  CHNLS 

ENTRY:   SCANS  =  NUMBER  OF  SCANS 

ICHNL  ^INITIAL  CHNL  TO  SCAN 

FCHNL  -    FINAL  CHANNEL  TO  SCAN 

TIME  =  2  BYTE  TIME  IN  MS 

EXIT:  REGISTERS  UNCHANGED 


SCAN: 


PUSH 

H 

PUSH 

D 

PUSH 

B 

PUSH 

PSW 

LDA 

ICHNL 

;FETCH  INITIAL  CHANNEL 

OUT 

START 

;SET  IT 

LDA 

FCHNL 

[FETCH  FINAL  CHANNEL 

OUT 

FINAL 

;SET  IT 

LHLD 

SCNRT    ; 

[FETCH  SCAN  RATE 

SHLD 

TIMO     j 

[STORE  IN  TIME  FACTOR 

LXI 

H,SCANA  : 

[GET  INT  SVC  JUMP 

CALL 

TIMER    ; 

[ENABLE  INT  TIMER 

LHLD 

SCANS    ; 

FETCH  #  OF  SCANS 

SHLD 

SCNTR    ; 

PUT  IN  SCAN  COUNTER 

LHLD 

TIME    ; 

FETCH  TIME 

LXI 

H,DBUF+1C 

)H   ;GET  BUFFER  LOCAT 

SHLD 

POINT    ; 

STORE  IN  POINTER 

SCAN8 
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05ED 

2A2302 

05F0 

7C 

05F1 

B5 

05F2 

C2ED05 

05F5 

CD6907 

05F8 

Fl 

05F9 

CI 

05FA 

Dl 

05FB 

El 

05FC 

C9 

05FD 

E5 

05FE 

D5 

05FF 

C5 

0600 

F5 

0601 

2A0620 

0604 

221D02 

0607 

2A2102 

060A 

3E00 

060C 

D310 

060E 

3A1E02 

061  1 

77 

0612 

23 

0613 

3A1C02 

0616 

77 

0617 

23 

0618 

D313 

061A 

3c02 

061C 

00 

061D 

3D 

061E 

C21D06 

0621 

DblO 

0623 

E601 

0625 

C23106 

0628 

3600 

062A 

23 

062E 

3600 

062D 

23 

062E 

C33S06 

0631 

DEI  1 

0633 

77 

0634 

23 

0635 

DEI  1 

0637 

77 

0638 

23 

0639 

DE10 

063c 

E680 

SCANA 


SCANO: 


SCANl 


SCANS 


SCAN  4 


LHLD 

SCNTR 

;FETCH  SCAN  COUNT 

MOV 

A,H 

• 
> 

OR  A 

L 

;FINISHED? 

JNZ 

SCAN8 

;N0  -  KEEP  SCANNING 

CALL 

TIMOFF 

;KILL  INTERUPT  ROUTIN 

POP 

PSW 

POP 

B 

POP 

D 

POP 

H 

;RETORED 

RET 

PUSH 

H 

PUSH 

D 

PUSH 

b 

PUSH 

PSW 

LHLD 

SCNRT 

;GET  SCAN  RATE 

SHLD 

TIMO 

;RESET  TIMOUT  FACTOR 

LHLD 

POINT 

;GET  BUFFER  POINTER 

MVI 

A,DCMD 

;  INITIALIZATION  CMD 

OUT 

DSTAT 

;SET  FLIP  FLOPS 

LDA 

TIME 

;GET  TIME 

MOV 

M,A 

;STORE  IN  BUFFER 

I  NX 

H 

;MOVE  POINTER 

LDA 

TIME+1 

j GET  2ND  BYTE  OF  TIME 

MOV 

M,A 

;STORE  IN  DATA  CELL 

INX 

H 

;MOVE  POINTER 

OUT 

CONV 

{START  CONVERSION 

MVI 

A, 2 

;SET  DELAY  COUNTER 

NOP 

;EXTRA  DELAY 

DCR 

A 

[QUIT  LOOP? 

JNZ 

SCANl 

;  MO  -  KEEP  COUNTING 

IN 

DSTAT    ! 

[FETCH  STATUS 

ANI 

EOC 

JNZ 

SCAN3    j 

;YES  -  GO  READ  DATA 

MVI 

M,OOH    : 

[INSERT  ERROR  FLAG 

INX 

H        ! 

[MOVE  POINTER 

MVI 

M,OOH    ; 

.INSERT  ERROR  FLAG 

INX 

H 

[MOVE  POINTER 

J  MP 

SCAN4    i 

[READ  NEXT  CHANNEL 

IN 

DDATA    : 

[GET  LSB  CF  DATA 

MOV 

M ,  A     ; 

,STORE 

INX 

h      ; 

MOVE  POINTER 

IN 

DDATA    ; 

[GET  MSB  OF  DATA 

MOV 

M,A      ; 

.STORE 

INX 

H      ; 

[MOVE  POINTER 

IN 

DSTAT    ; 

FETCH  STATUS 

ANI 

EOS     ; 

END  OF  SCAN? 

88 


063D 
0640 
0643 
0646 
0647 
064A 
064& 
064C 
064D 
064E 


CA1806 

222102 

2A2302 

2B 

222302 

Fl 

CI 

Dl 

El 

C35C07 


JZ 

SCANO 

SHLD 

POINT 

LHLD 

SCNTR 

DCX 

H 

SHLD 

SCNTR 

POP 

PSW 

POP 

B 

POP 

D 

POP 

H 

J  MP 

TSVCO 

NO  -  CONV  NEXT  CHNL 
STORE  POINTER 
FETCH  SCAN  COUNT 
COUNT  DOWN  ONE 
RESTORE  UPDATED  COUNT 


;RETURN 

******************************************** 

SETFCB  -  MOVES  AN  INITIAL  FCB  INTO 

TFCB  AREA 

ENTRY:   D,E  =  FILNAME  BLOCK 
************ ******************************* 


SETFCB: 


0651  E5 

0652  215C00 

0655  C5 

0656  0613 


PUSH 
LXI 
PUSH 
MVI 


SETF1 


065S 
0659 
065A 
065B 
065C 
065D 
0660 
0661 
0664 
0665 
0666 


0667 
066A 
066B 
066C 
066F 
0670 
0671 
0674 
0675 
0676 


1A 

77 
23 
13 

05 

C25S06 

AF 

327C00 

CI 

El 

C9 


LDAX 

MOV 

INX 

INX 

DCR 

JNZ 

XRA 

STA 

POP 

POP 

RET 

DECHX 

* 


H 

H,05CH 
B 
B,19 

D 

M,A 

H 

D 

B 

SETF1 

A 

TFCB+32 

B 

H 


SAVE 

DEFAULT  FCb 

SAVE 

SET  COUNTER 

FETCH  EYTE  TO  MOVE 

STORE  IN  TFCE  AREA 

INCREMENT  H 

INCREMENT  D 

FINISHED? 

NO  -GET  ANOTHER  EYTE 

CLEAR  ACCUM 


-  CONVERTS  6  BCD  EYTES  TO  2  HEX 
ENTRY:  SIX  BCD  BYTES  STARTING 
AT  'WORK' 
*  EXIT:  TWO  HEX  AT  'WGRK+4' 


DECHX: 


212502 

54 

5D 

CD8506 

12 

13 

CD8506 

12 

13 

CD8506 


LXI 

H,WORK 

MOV 

D,H 

MOV 

t  ,L 

CALL 

HEXBIN 

STAX 

D 

INX 

D 

CALL 

HEXBIN 

STAX 

D 

INX 

D 

CALL 

HEXBIN 

POINT  TO  WORK  AREm 
DUPLICATE  IN  D 
DUPLICATE  IN  E 
CONVERT  1ST  PR    TO  HEX 
STORE  IN  WORK 
MOVE  STORAGE  POINTER 
CONVERT  SECOND  PAIR 
STORE  IN  WORX+1 
MOVE  POINTER 
CONVERT  THIRD  PAIR 
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0679 

12 

067A 

13 

067B 

AF 

067C 

12 

067D 

13 

067E 

212502 

0681 

CD8E06 

0684 

C9 

0685 

7E 

0686 

17 

0687 

17 

0688 

17 

0689 

17 

068A 

23 

068B 

66 

068C 

23 

068D 

C9 

068E 

CDC906 

0691 

23 

0692 

CDC906 

0695 

23 

0696 

CDC906 

0699 

CD9D06 

069C 

C9 

069D 

3A2502 

06A0 

5F 

06A1 

1600 

06A3 

210000 

06A6 

CDC106 

06A9 

EB 

06AA 

210000 

06AD 

CDC106 

0650 

3A2602 

06E3 

1600 

0655 

5F 

06B6 

CDC106 

0659 

3A2702 

06BC 

1600 

0655 

5F 

06BF 

19 

06C0 

C9 

06C1 

0664 

STAX 

D 

INX 

D 

XRA 

A 

STAX 

D 

I  NX 

D 

LXI 

H,W0RK 

CALL 

BCD2HX 

RET 

;CLEAR  ACCUMULATOR 
;LOAD  ZERO  IN  WORX+3 
;MOVE  POINTER 


;RETURN 
SUBROUTINES  -  BCD2HX  AND  HEXBIN 


HEXBIN 


BCD2HX 


MULT: 


MUL10: 


MOV 
RAL 
RAL 
RAL 
RAL 
INX 
ORA 
INX 
RET 

CALL 

INX 

CALL 

INX 

CALL 

CALL 

RET 

LDA 

MOV 

MVI 

LXI 

CALL 

XCH3 

LXI 

CALL 

LDA 

MVI 

MOV 

CALL 

LDA 

MVI 

MOV 

DAD 

RET 

MVI 


A,M 


H 

M 

H 


ECDBN 

H 

ECDBN 

H 

ECDBN 

MULT 


WORK 

E,A 

D,0 

H,0 

MUL10 

H,0 

MUL10 

WORK+1 

D,0 

E,A 

MUL10 

WORK+2 

D,0 

L  ,A 

D 


8,100 


;FETCH  1ST  BYTE 


SHIFTED  TO  HIGH  NIB 
MOVE  POINTER 
BRIN3  IN  LOW  NIBBLE 
MOVE  POINTER 
RETURN 
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MUL20: 


06C3 

19 

DAD 

D 

06C4 

05 

DCR 

B 

06C5 

C2C3G6 

JNZ 

MUL20 

06C8 

C9 

BCDBN: 

RET 

06C9 

7E 

MOV 

A,M 

06CA 

4F 

MOV 

C,A 

06CB 

E60F 

AtMI 

OFH 

06CD 

5F 

MOV 

E,A 

06CE 

79 

MOV 

A,C 

06CF 

E6F0 

AMI 

OFOH 

06D1 

OF 

RRC 

06D2 

OF 

RRC 

06D3 

4F 

MOV 

C,A 

06D4 

OF 

RRC 

06D5 

OF 

RRC 

06D6 

81 

ADD 

C 

06D7 

07 

RLC 

06D8 

83 

ADD 

E 

06D9 

77 

MOV 

M,A 

06DA 

C9 

RET 

•  ******************************************* 

COLON 

-  FINDS  THE  NEXT  COLON  " : " 
IN  MEMORY  STARTING  AT  H,L 
EXIT:    H,L  POINTS  TO  MEMORY 
POSITION  AFTER  ":" 

;******************************************* 

COLON: 

06DB 

3E3A 

COL  10: 

MVI 

06DD 

BE 

CMP 

M 

06DE 

23 

I  NX 

H 

06DF 

C2DD05 

JNZ 

C0L10 

06E2 

C9 

RET 

FLTHX  -  SCANS  A  BLOCK  OF  MEMORY  FOR 
BCD  ASCII  CHARACTERS  AND 
CONVERTS  THEM  TO  A  PAIR  OF 

HEX  BYTES 

******************************************** 

FLTHX: 


06E3 

0606 

06E5 

E5 

0SE6 

C5 

06E7 

212502 

06EA 

AF 

06EB 

77 

06EC 

23 

FLT04: 


MVI 

PUSH 

PUSH 

LXI 

XRA 

MOV 
I  NX 


B,6 

H 

B 

H,WORK 

A 

M,A 
H 


SET  LOOP  COUNTER 
SAVE 
SAVE 

INITIALIZE 
WORK 

AREA 
TO 
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06ED 

05 

06EE 

C2EB06 

06F1 

CI 

06F2 

El 

06F3 

7E 

06F4 

FE20 

06F6 

CA0F07 

06F9 

FEOD 

06FB 

CA1307 

06FE 

L6F0 

0700 

FE30 

0702 

C22807 

0705 

7E 

0706 

FE3A 

0708 

F22807 

070b 

05 

070C 

FA2S07 

070F 

23 

0710 

C3F306 

0713 

3E06 

0715 

90 

0716 

47 

0717 

2B 

0718 

112A02 

071B 

7E 

071C 

E60F 

071E 

12 

071F 

IB 

0720 

2B 

0721 

05 

0722 

C21B07 

0725 

C36706 

0728 

113701 

072B 

C3DA07 

FLT05: 


FLT10: 


FLT20: 


FLT25: 


DCR 

B 

;               ZEROS 

JNZ 

FLT04 

POP 

B 

jRESTORE 

POP 

H 

jRESTORE 

MOV 

A,M 

;FETCH  FIRST  CHAR 

CPI 

•  i 

;IS  IT  A  BLANK? 

JZ 

FLT10 

;YES  -  IGNORE  IT 

CPI 

CR 

;IS  IT  A  CARRIAGE  RTN 

JZ 

FLT20 

;YES  QUIT  SCANNING 

ANI 

OFOH 

;MASK  OFF  LOW  NIBBLE 

CPI 

30H 

;IS  IT  IN  HEX  RANGE? 

JNZ 

FLT30 

;N0  -  IT  IS  AN  ERROR 

MOV 

A,M 

;FETCH  THE  WORD  AGAIN 

CPI 

3AH 

;IS  IT  >  S 

JP 

FLT30 

;YES  -  IT  IS  AN  ERROR 

DCR 

B 

;COUNT  AS  A  VALID  HEX 

JM 

FLT30 

;ERROR  IF  >  6  NUMBERS 

I  NX 

H 

;STEP  MEMORY  POINTER 

JMP 

FLT05 

;SCAN  AGAIN 

MVI 

A, 6 

SUB 

B 

•COMPUTE  #  DIGITS 

MOV 

B,A 

;STORE  IN  B 

DCX 

H 

;BACK  SPACE  POINTER 

LXI 

D,W0RK+5 

;POINT  TO  WORK  AREA 

MOV 

A,M 

;FETCH  NEXT  LSB 

ANI 

OFH 

;CONVERT  TO  BCD 

STAX 

D 

;STORE  IN  WORK  AREA 

DCX 

D 

;MOVE   POINTER 

DCX 

H 

;MOVE  SOURCE  POINTER 

DCR 

B 

; COUNT  DOWN 

JNZ 

FLT25 

;D0  AGAIN 

JMP 

DECHX 

;CONVERT  TO  HEXBYTE 

LXI 

D,MS35 

;"INVALID  INPUT  FIELD' 

JMP 

ERREX 

FLT30: 


TIMER  -  INTERUPTS  TO  SPECIFIED 

ROUTINE  AFTER  NN  MILLISECONDS 

ENTRY:   H,L  =  STARTING  ADDR 

OF  INTERUPT  SERVICE  ROUTINE 
D,E  =  TIMEOUT  IN  MS 

EXIT:    REGISTERS  REMAIN  UNCHANGED 
SERVICE  ROUTINE  IS  EXECUTED 
INTERUPT  ROUTINE  SHOULD  LOOK 
LIKE  NORMAL  SUBROUTINE 
********************** ************ ********* 
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TIMER: 


072E  F3 

DI 

072F  221 F02 

SHLD 

GOTO 

;STORE  JUMP  ADDRESS 

0732  DBFC 

IN 

INTMSK 

;FETCH   INT  MASK 

0734  E6FD 

AMI 

OFDH 

jENABLE  TIMER  INT 

0736  D3FC 

OUT 

INTMSK 

;SET  INTERUPT  MASK 

0738  3E12 

MVI 

A,12H 

073A  D3FD 

OUT 

OFDH 

;INIT  INT  CONTROLLER 

073C  3E02 

MVI 

A,02H 

• 
9 

073E  D3FF 

OUT 

OFFH 

;START  TIMER 

0740  FB 

EI 

0741  CS 

RET 

TIMER  INTERUPT  SERVICE 

TSVC: 

0742  F3 

DI 

;DISABLE  INTERUPTS 

0743  F5 

PUSH 

PSW 

;SAVE  A 

0744  E5 

PUSH 

H 

0745  3E02 

MVI 

A,02H 

0747  D3FF 

OUT 

OFFH 

;RESET  TIMER 

0749  2A1B02 

LHLD 

TIME 

;GET  TIME 

074C  23 

I  MX 

H 

;UPDATE 

074D  221B02 

SHLD 

TIME 

;RESTORE 

0750  2A1D02 

LHLD 

TIMO 

;GET  TIMOUT  COUNT 

0753  2B 

DCX 

H 

;COUNT  DOWN 

0754  221D02 

SHLD 

TIMO 

;RESTORE  IT 

0757  7C 

MOV 

A,H 

;GET  MSB  OF  COUNT 

0758  B5 

ORA 

L 

;0R  WITH  LSB  OF  COUNT 

0759  CA6507 

JZ 

TSVC1 

;T0  INT  ROUTINE  IF  0 

TSVCO: 

075C  El 

POP 

H 

;RESTORE 

075D  F3 

DI 

075E  3^20 

MVI 

A,20H 

;RESTORE  INT  LEVEL 

0760  D3FD 

OUT 

OFDH 

0762  Fl 

POP 

PSW 

;  RESTORE 

0763  FB 

EI 

;ENABLE  INTERUPTS 

0764  C9 

RET 

;RETURN 

TSVC1: 

0765  2A1F02 

LHLD 

GOTO 

; FETCH  JUMP  ADDRESS 

0768  E9 

PCHL 

;EXECUTE  JUMP 

0769 
076A 
076C 
076E 
076F 


F5 

3E01 

D3FF 

Fl 

C9 


St:******************** 

TIMOFF  -  TURNS 

*************** ****** 


OFF  INTERUPT  SERVICE 


TIMOFF: 


PUSH 

MVI 

OUT 

POP 

RET 


PSW 

A,01H 

OFFH 

PSW 
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0770 

222E02 

0773 

CD5106 

0776 

CD6008 

0779 

AF 

077A 

321A02 

077D 

2A2B02 

0780 

EE 

0781 

CDC608 

0784 

CD7008 

0787 

CDC907 

078A 

3A1A02 

078D 

B7 

078E 

CA7D07 

0791 

CD6808 

0794 

C9 

0795 
0798 
07SE 
079E 
07A1 
07A4 
07A5 
07a8 


222B02 

CD51C6 

1  18000 

CDCS08 

CDEE08 

3C 

C2AE07 

CDAE08 


07AB  CD6008 


07AE 

2A2502 

07B1 

IB 

07B2 

CDCS08 

07E5 

CD8A08 

07B3 

CDC907 

07BB 

3A2D02 

C7BE 

216E0C 

•  ******************************************* 

;*  RDFILE  -  READ  AN  ENTIRE  FILE  INTO 

;*  MEMORY 

;*  ENTRY:  STARTING  ADDR  OF  MEMORY  BLOCK 

;*  IN  H,L 

;*  ADDR  OF  FILENAME  BLOCK  IN  D  fE 

»   ******* ************************************* 


RDFILE 


RDF  10: 


SHLD 

CALL 

CALL 

XRA 

STA 

LHLD 

XCH3 

CALL 

CALL 

CALL 

LDA 

ORA 

JZ 

CALL 

RET 


PAGER 

SETFCB 

OPEN 

A 

EOFLG 

PAGER 

SETDMA 

READ 

HAFPG 

EOFLG 

A 

RDF10 

CLOSE 


READ  A  RECORD 
MOVE  PAGE  INDEX 
FETCH  EOF  FLAG 
EOF  FOUND? 
NO  -  READ  NEW  PAGE 
CLOSE  FILE 
. RETURN 

WRFILE  -  WRITE  A  BLOCK  OF  MEMORY 
ENTRY:   NUMBER  OF  RECORDS+1  TO  WRITE 
STARTING  ADDRESS  IN  H,L 


STORE   POINTER 

OPEN  FILE 
CLEAR  ACCUM 
CLEAR  EOF  FLAG 

FETCH  POINTER 
PUT  POINTER  IN 


D,. 


WRFILE 


WRF0  5 


WR  F 1 0 : 


WRF15 


SHLD 

CALL 

LXI 

CALL 

CALL 

I  MR 

JNZ 

CALL 

CALL 

LHLD 

XCH3 
CALL 

CALL 
CALL 
LDA 
LXI 


PA3ER 

SETFCB 

D,80H 

SETDMA 

SEARCH 

A 

WRF05 

MAKE 

OPEN 


;SET    UP    PAGER 
;SET   FCB 


;SEARCH  FOR  EXISTING 
;WAS  THERE    A  MATCH? 
;YES  -  SKIP  MAKE 
;MAKE  DIRECTORY  ENTRY 

;OPEN  FILE 


PA3ER    ;FETCH  CURRENT  POINTER 

;PUT  POINTER  IN  D,E 
SETDMA 

WRITE    ; WRITE  A  RECORD 
HAFP3    ;MOVE  PA3E  INDEX 
RCDS     ;  RECORDS  TO  WRITE 
H,TFCB+15 
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07C1  BE 
07C2  C2B507 
07C5  CD680S 
07C8  C9 


07C9 

E5 

07CA 

2A2B02 

07CD 

118000 

07D0 

19 

07D1 

222B02 

07D4 

£B 

07D5 

CDC608 

07D8 

11 

07D9 

C9 

07DA  CD1 108 
07DD  115C00 
0710  CD6C0S 
07E3  C50000 


07E6 
07E8 
07EA 
C7ED 
07EF 

07F0 

07F1 
07F3 
07F5 
07F8 
07F9 
07FB 


DBF5 

£602 

CAE607 

DEF4 

C9 

75 

DBF5 

£601 

CAF007 

Fl 

D3F4 

C9 


CMP 

M 

JNZ 

WRF15 

CALL 

CLOSE 

RET 

; NO -WRITE  NEW  RECORD 

;CLOSE  THE  FILE 

;     RETURN 
***************************** ************** 

SUBROUTINE  HAFP3E  -  ADJUSTS  DMA  ADDRESS 

HALF  PAGE  OF  MEMORY 

***************************** ************** 


HAFPG: 


H 

PAGER 

D,0128 

D 

PAGER 

SETDMA 
H 


;SAVE 


ADD  128  TO  P^oER 
RESTORE  UPDATD  Pf\3ER 
SWITCH  H,L  WITH  0  ,E 
SET  DMA 


PUSH 

LHLD 

LXI 

DAD 

SHLD 

XCHG 

CALL 

POP 

RET 

ERREX  -  FATAL  ERRORS  EXIT  VIA  THIS 
ENTRY:  dfE  CONTAIN  MESSAGE  ADDRESS 
EXIT:    BOOT  TO  DOS 


ERREX: 


CALL 

PRINT 

;PRINT  THE  MESSAGE 

LXI 

D,TFCB 

; TEMPORARY  FCE 

CALL 

CLOSE 

;CLOSE  THE  FILE 

J  MP 

BOOT 

;BOOT  TO  DOS 

DRIVERS  -  I/O  SUBROUTINES  CONTAINING 
TTY,  CRT,  DISK,  I/O  PORTS 


TTY  DRIVERS 


TTYIN: 


TTYOUT: 


IN 
AN  I 
JZ 
IN 
RET 

PUSH 

IN 

ANI 

JZ 

POP 

OUT 

RET 


TSTAT 
RXRDY 
TTYIN 
TDATA 


PSW 

TSTAT 

TXRDY 

TTYOUT 

PSW 

TDATA 


FETCH  STATUS 
IS  RECEIVER  READY 
NO  KEEP  LOOKING 
FETCH  DATA  BYTE 
RETURN  WY  BYTE  IN  A 

SAVE  DATA  BYTE 
FETCH  STATUS 
TRANSMITTER  RDY? 
NO  -  WAIT  UNTIL  RDY 
BRING  BACK  DATA  BYT: 
OUTPUT  TO  TTY 
RETURN 
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CRTIN: 


07FC 

DBF7 

IN 

CSTAT 

;FETCH  CRT  STATUS 

07FE 

E602 

ANI 

RXRDY 

;RECEIVER  READY  ? 

0800 

CAFC07 

JZ 

CRTIN 

;N0  -  WAIT  UNTIL  RDY 

0803 

DBF6 

CRTOUT: 

IN 

CDATA 

;FETCH  INPUT  BYTE 

0805 

F5 

CRT1: 

PUSH 

PSW 

;SAVE  DATA  BYTE 

0806 

DEF7 

IN 

CSTAT 

;FETCH  CRT  STATUS 

0808 

£601 

AMI 

TXRDY 

;TXMITTER  READY  ? 

080A 

CA0608 

JZ 

CRT  I 

;N0  -  WAIT  UNTIL  RDY 

080D 

Fl 

POP 

PSW 

;BRING  BACK  DATA 

080E 

D3F6 

OUT 

CDATA 

; OUTPUT  DATA 

0810 

C9 

PRINT: 

RET 

; RETURN 

OS  11 

0E09 

MVI 

C,9 

;SET  UP  FOR  BDOS  CALL 

0813 

C30500 

PNIB: 

J  MP 

ENTRY 

;JUMP  TO  BDOS 

0816 

E60F 

ANI 

OFH 

;MASK  LOW  4  BITS 

0818 

FEOA 

CPI 

10 

081A 

D22208 

JNC 

P10 

08  ID 

C630 

ADI 

•o* 

08  IF 

C30508 

P10: 

J  MP 

CRTOUT 

0822 

C637 

ADI 

'A'  -  10 

0824 

C30508 

PHEX: 

J  MP 

CRTOUT 

0827 

F5 

PUSH 

PSW 

0828 

OF 

RRC 

0829 

OF 

RRC 

082A 

OF 

RRC 

082B 

OF 

RRC 

082C 

CD1608 

CALL 

PNIB 

082F 

Fl 

POP 

PSW 

0830 

CD1608 

CALL 

PNIB 

0833 

C9 

PRHL: 

RET 

0834 

E5 

PUSH  H 

0835 

7C 

MOV 

A,H 

0836 

CD2708 

CALL 

PHEX 

083S 

El 

POP 

H 

083A 

E5 

PUSH 

H 

083E 

Id 

MOV 

A,L 

083C 

CD2708 

CALL 

PHEX 

083F 

El 

POP 

H 

0840 

C9 

CRLF: 

RET 

0841 

3E0D 

MVI 

A,0DH 

;CARRIAQE  RETURN 

0843 

CD0508 

CALL 

CRTOUT 

C846 

3E0A 

MVI 

A,OAH 

;LIN£  FEED 

0848 

C30508 

J  MP 

CRTOUT 
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08  4E 

0E0D 

0S4D 

C30500 

0850 

I  10000 

0853 

OEOE 

0855 

C30500 

0858 

1  10100 

085B 

OEOE 

085D 

C30500 

0860 

I 15C00 

0863 

OEOF 

0865 

C30500 

0868 

115C00 

086B 

0E10 

086D 

C30500 

0870 

115C00 

0873 

0E14 

0875 

CD0500 

0878 

B7 

0879 

C8 

08  7  A 

3D 

087b 

C28408 

087E 

3E0F 

0880 

321A02 

0883 

C9 

0884 

1 10301 

0887 

C3DA07 

0S8A 

1 15C00 

08SD 

0E15 

088F 

CD0500 

0892 

B7 

0893 

C8 

0894 

3D 

0895 

C29E08 

0898 

1  10F01 

089E 

C3DA07 

089E 

3D 

089F 

C2AS08 

08A2 

1  1  1C01 

08A5 

C3DA07 

08A8 

1 12701 

08AB 

C3DA07 

INTIAL: 


LOGA: 


L03B: 


OPEN: 


CLOSE: 


READ: 


RD010: 


WRITE: 


WR010: 


WR020: 


MVI 

C,13 

J  MP 

ENTRY 

LXI 

D,OOH 

MVI 

C,14 

J  MP 

ENTRY 

LXI 

D ,  0 1 H 

MVI 

C,14 

JMP 

ENTRY 

LXI 

D,05CH 

MVI 

C,15 

JMP 

ENTRY 

LXI 

D,05CH 

MVI 

C,16 

JMP 

ENTRY 

LXI 

D,05CH 

MVI 

C,20 

CALL 

ENTRY 

OR  A 

A 

RZ 

;RETURN  IF  NO  ERRORS 

DCR 

A 

;IS  IT  AN  EOF? 

JNZ 

RD010 

;N0  -UNWRITTEN  DATA 

MVI 

A,OFH 

;SET  EOF  FLA3 

STA 

EOFLG 

• 
9 

RET 

LXI 

D,MS31 

;  'READ  ERRGR* 

JMP 

ERREX 

LXI 

D,05CH 

MVI 

C,21 

CALL 

ENTRY 

OR  A 

A 

RZ 

; RETURN  IF  NO  ERRORS 

DCR 

A 

• 
9 

JNZ 

WR010 

LXI 

D,MS32 

;  'WRITE  ERROR' 

JMP 

ERREX 

DCR 

A 

JNZ 

WR020 

LXI 

D,  MS  33 

;  'DISK  FULL' 

JMP 

ERREX 

LXI 

D,MS34 

;  'DIRECTORY  FULL* 

JMP 

ERREX 
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MAKE: 


08AE  115C00 

LXI 

D,05CH 

08bl  0E16 

MVI 

C,22 

0SB3  CD0500 

CALL 

ENTRY 

08B6  3C 

INR 

A 

08B7  CO 

RNZ 

08B8  112701 

LXI 

D,MS34 

08BB  C3DA07 

SEARCH: 

JMP 

ERREX 

08BE  115C00 

LXI 

D,05CH 

08C1  0E11 

MVI 

C,17 

08C3  C30500 

SETDMA: 

JMP 

ENTRY 

08C6  0E1A 

MVI 

C,26 

08C8  C30500 

JMP 

ENTRY 

;  'DIRECTORY  FULL* 


SETVLV  -  ALLOWS  USER  TO  SET  UP  PROPER 
SCANIVALVE  POSITION  BEFORE  CONTINUING 


•INPUT  FREQUENCY  TYPE  RETURN  S* 


OSCE 

494E505554MESS: 

SETVLV: 

DB 

'INPUT 

08E8 

CD4108 

CALL 

CRLF 

08EB 

1  1CE08 

LXI 

D,MESS 

08EE 

CD1 108 

CALL 

PRINT 

08F1 

CDFC07 

CALL 

CRTIN 

08F4 

E60F 

ANI 

OFH 

08F6 

322702 

STA 

W'ORK+2 

08F9 

CDFC07 

CALL 

CRTIN 

08FC 

E60F 

ANI 

OFH 

08FE 

322802 

STA 

WORX+3 

0901 

CDFC07 

CALL 

CRTIN 

0904 

E60F 

ANI 

OFH 

0906 

3229C2 

STA 

WORK+4 

0909 

CDFC07 

CALL 

CRTIN 

090C 

E60F 

ANI 

OFH 

090E 

322A02 

STA 

WORK+5 

0911 

CDFC07 

CALL 

CRTIN 

0914 

E67F 

ANI 

7FH 

0916 

FEOD 

CPI 

CR 

0918 

C2E808 

JNZ 

SETVLV 

091B 

AF 

XRA 

A 

091C 

322502 

STA 

WORK 

091F 

322602 

STA 

WORK+1 

0922 

CD6706 

CALL 

DECHX 

0925 

7D 

MOV 

A,L 

0926 

320820 

STA 

SCNRT  + 

0929 

7C 

MOV 

A,H 

092A 

320920 

STA 

SCNRT+3 

092D 

C9 

RET 

092E 

END  100H 
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** 


** 


00F4  =  TDATA 

00F5  =  TSTAT 

00F5  -  TCMD 

00F6  :  CDATA 

00F7  -  CSTAT 

00F7  r  CCMD 


0005  =  ENTRY 

0000  -  BOOT 
005C  -  TFCE 
0080  =  TEUFF 

0001  =  TXRDY 

0002  =  RXRDY 
OOOD  :  CR 
OOOA  -  LF 


** 


0100 
0100  C30004 
0103  5245414420MS31  : 
010F  5752495445MS32: 
011C  4449534B20MS33: 
0127  4449524543MS34: 
0137  4441544120MS31  1  : 
0147  0044415441DATA: 
015B  00        E0FL3: 
015C  0000      TIME: 
015E  0000      TIMO: 
0160  0000       30T0: 
0162  OOOC      POINT: 
0164  0000      SCNTR: 
0166  GOOOOOOGOOWCRK: 
016C  0000      PAGER: 
016E  00        RODS: 
016F  0000      LASTP): 


EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQU 
ECU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 


EQUATES  FOR  CONVERT  MODULE 


3ENERAL  I/O  ASSIGNMENTS 


0F4H 
0F5H 
0F5H 
0F6H 
0F7H 
0F7H 


TTY  DATA 
TTY  STATUS 
TTY  CONTROL 
CRT  DATA 
CRT  STATUS 
CRT  CONTROL 


GENERAL  EQUATES 


;EDOS  ENTRY  POINT 

;EOOT  POINT 

;DEFAULT  FCB 

;DEFAULT  BUFFER  LOCATIQ 


005H 

OOH 

05CH 

080H 

1 

2 

ODH 

OAH 


BUFFER  ALLOCATION 
DATA  ORGANIZATION 


& 


OR  3 

100H     ;VARIABLE  AREA 

J  MP 

BE  31  N 

DB 

•READ  ERROR  Sf 

DE 

'WRITE  ERROR  $' 

DB 

'DISK  FULL  $' 

DB 

•DIRECTORY  FULL  $' 

DE 

'DATA  TRUNCATED  $' 

DE 

0,'DATA        ',0,0,0,0,0,0,0,0 

DE 

0 

DW 

0 

DW 

0 

DW 

0 

DW 

0       ; BUFFER  POINTER 

DW 

0        ;SCAN  COUNTER 

DE 

0,0,0,0,0,0      ; WORKING  AREA  0 

DW 

0        jPAGE  COUNTER 

DB 

0        ;RECORDS  TO  BE  WRITTENS 

DW 

00       ;LAST  WRITTEN  LOCATION 
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2000 
0400 

0400  31FF1F 

0403  CD0904 
0406  C30000 


ORG 

2000H 

DBUF: 

ORG 

400H 

BEGIN: 

;START  OF  DATA  AREA 

;START  OF  PROGRAM  AREA 

SP,1FFFH        {INITIALIZE  STS 
CALL     TRANS 
J MP      BOOT 

TRANS  -  READS  IN  DATA  FILE  FROM  DISK  B 
CONVERTS  EINARY  DATA  TO  ASCII  EJ 
REQUIRED  BY  BASIC  ROUTINE 
ENTRY:  THIS  PROGRAM  IS  CALLED  B 

SUBMIT  FILE 
EXIT:    CONTROL  IS  RETURNED  TOS 

FILE 

SET  UP  FILE  CONTROL  BLOCK  -  READS  IN  SE 
ETER  ISSUED  BY  SUBMIT  FILE 


TRANS 


0409 

118200 

040C 

0604 

040E 

215C00 

041  1 

3600 

0413 

23 

0414 

1A 

0415 

77 

0416 

13 

0417 

23 

0418 

05 

041S 

C21404 

041C 

13 

041D 

3E20 

041F 

77 

0420 

23 

0421 

77 

0422 

23 

0423 

77 

0424 

23 

0425 

77 

0426 

23 

0427 

1A 

0428 

77 

042S 

23 

042  A 

13 

042E 

1m 

Q42C 

77 

042D 

23 

TRAN1 


LXI 

D,082H 

MVI 

B,4 

LXI 

H,05CH 

MVI 

M,0 

I  NX 

H 

LDAX 

D 

MOV 

M,A 

I  NX 

D 

INX 

H 

DCR 

B 

JNZ 

IRANI 

INX 

D 

MVI 

A,20H 

MOV 

M,A 

INX 

H 

MOV 

M,A 

INX 

H 

MOV 

M,A 

INX 

H 

MOV 

M,A 

INX 

H 

LDAX 

D 

MOV 

M,A 

INX 

H 

INX 

D 

LDAX 

D 

MOV 

M,A 

INX 

H 

; ADDRESS  OF  PARAMETER  1 
{CHARACTER  COUNTER 
;ADDRESS  OF  TFCB 


FETCH  CHARACTER 

STORE  IN  FCB 

STEP  POINTER 

STEP  DESTINATION  POINI 

FINISHED? 

NO  KEEP  TRANSFERRING 


100 


042E 

13 

042F 

IA 

0430 

77 

0431 

061S 

0433 

AF 

0434 

23 

0435 

77 

0436 

05 

0437 

C23404 

TRAN2: 


INX 

D 

LDAX 

D 

MOV 

M,A 

MVI 

B,24 

XRA 

A 

INX 

H 

MOV 

M,A 

DCR 

B 

JNZ 

TRAN2 

;CLEAR    A 


*Mm  w  jla  Jg  m#  -^  -«i-   ^L  -^    «^   ^L  ^L    -^-  -^.    ^-  ^-    ^-  -^.    ^i  <^r    ^-  -|f  -|L-  «_•■   ^.    s_.    ._.   -^.   -  L-  -  i-  -«^-  -^-   ^U  -^,    -_.    -^.  -J,-  -^,  -^,  -X-  ^L>   -^-  -X-    -^   ~^r  - !■- 

READ    IN    DATA    FILE 


;L0GIN    DISK    B 

;BUFF£R    AREA 

;SET   PAGER 

;OPEN    FOR    READ 

;CLEAR    A 

;RESET   d^   OF   FILE   FLAG 


043A 

CDC405 

CALL 

LOGS 

043D 

210020 

LXI 

H,DBUF 

0440 

226C01 

SHLD 

PAGER 

0443 

CDCC05 

CALL 

OPEN 

0446 

AF 

XRA 

A 

0447 

325B01 

STA 

EOFLG 

044A 

1 10020 

LXI 

D,DBUF 

044D 

CD3A06 

CALL 

SETDMA 

0450 

CD6206 

CALL 

RDFIO 

0453 

2A6C01 

LHLD 

PAGER 

0456 

117EFF 

LXI 

D,0FF7EH 

045S 

19 

DAD 

D 

045A 

226F01 

SHLD 

LASTM 

; *********************** 

;                  SET    UP 

TRANSITIO 

*********************** 

045D 

118000 

LXI 

D,080H 

0460 

CD3A06 

CALL 

SETDMA 

0463 

215001 

LXI 

H,DATA+9 

0466 

3641 

MVI 

M  ,  *  A  ' 

0468 

23 

INX 

H 

0469 

3653 

MVI 

M,'Sf 

046c 

23 

INX 

H 

046C 

3643 

MVI 

M,'C' 

046E 

114701 

LXI 

D,DATA 

0471 

CD3F06 

CALL 

SETFCB 

0474 

CD1A06 

CALL 

DELET 

0477 

CD2206 

CALL 

MAKE 

047A 

CDCC05 

CALL 

OPEN 

047D 

218000 

LXI 

H,080H 

0480 

226201 

SHLD 

POINT 

0483 

210020 

LXI 

H,DBUF 

0486 

226C01 

SHLD 

PAGER 

0489 

CDEA04 

CALL 

GTONE 

048C 

CDEA04 

CALL 

GTONE 

048F 

CDBA04 

CALL 

GTONE 

0492 

CDBA04 

CALL 

GTONE 

;READ    FILE    INTO   MEMORY 


;SAVE    LAST    MEMORY   LOCAT 

N    BUFFER    IN    DEFAULT    LOfi 

;ADDRESS    OF    TBUFF 
;SET    DMA    ADDRESS 

;ADDRESS    OF    EXI 


;SET    FILE   CONTROL    BLOCK 


;ADDRESS    OF    TBUFF 

;SET    BUFFER   POINTER    TOT 

; ADDRESS    OF    DEUF 


101 


0495 

2A6F01 

0498 

EB 

0499 

CDCE04 

049C 

2A6F01 

049F 

EB 

04A0 

2A6C01 

04A3 

7B 

04A4 

95 

04A5 

7A 

04A6 

9C 

04A7 

D29904 

04AA 

2A6201 

04AD 

3E30 

04AF 

CDF504 

04b  2 

2C 

04E3 

C2AF04 

04B6 

CDD405 

04£9 

C9 

04BA 

2A6C01 

04BD 

7E 

04Bii 

23 

04BF 

226C01 

04C2 

6F 

04C3 

2600 

04C5 

CD0D05 

04C8 

3E2C 

04CA 

CDF504 

04CD 

C9 

04CE 

2A6C01 

04D1 

5E 

04D2 

23 

04D3 

56 

04D4 

23 

04D5 

226C01 

04D8 

EB 

04D9 

AF 

04DA 

E4 

CONVT: 


C0N10: 


LHLD 

LASTM 

XCHG 

CALL 

GTTWO 

LHLD 

LASTM 

XCHG 

LHLD 

PAGER 

MOV 

A,E 

SUB 

L 

MOV 

A,D 

SBB 

H 

JNC 

CONVT 

LHLD 

POINT 

MVI 

A,'0' 

CALL 

STUFF 

INR 

L 

JMZ 

C0N10 

CALL 

CLOSE 

RET 

GTONE  -  TAXES  ONE  BYTE  FROM  DATA  BUFFER 
CONVERTS  TO  ASCII  IN  TBUF 
TBUF  IS  EMPTIED  WHEN  FULL 

GTONE: 


LHLD 

PAGER 

MOV 

A,M 

INX 

H 

SHLD 

PAGER 

MOV 

L,A 

;MOVE  TO  L 

MVI 

H,0 

;CL£AR  H 

CALL 

ED5 

;CONV£RT  TO  ASCII 

MVI 

A  '  * 
"  9      f 

;  INSERT  COMMA 

CALL 

STUFF 

RET 

;  RETURN 

GTTWO  -  TAKES  TWO  BYTES  OF  BINARY  UATAA 
CONVERTS  THEM  TO  ASCII  IN  TBUF 

TBUF  IS  DUMPED  WHEN  FULL; 

************  x*** ********************* ********** 

GTTWO: 


LHLD 

PAGER 

MOV 

E,M 

;G£T  LSB 

INX 

H 

;STEP  POINTER 

MOV 

D,M 

;GET  MSB 

INX 

H 

;MOVE  POINTER 

SHLD 

?f\3ER 

;STOR£  IN  ?(\^E.R 

XCHG 

XRA 

A 

;CL£AR  A 

OR  A 

H 

;IS  IT  NEGATIVE? 
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04DB 

F2EC04 

04DE 

2B 

04DF 

7C 

04E0 

EEFF 

04E2 

67 

04E3 

7D 

04E4 

EEFF 

04E6 

6F 

04E7 

3E2D 

04E9 

CDF504 

04EC 

CD0D05 

04EF 

3E2C 

04F1 

CDF504 

04F4 

C9 

04F5 
04F6 
04F7 
04F8 
04FB 
04FC 
04FD 
0500 
0503 


E5 

D5 

C5 

2A6201 

77 

2C 

C20605 

CDF605 

218000 


0506  226201 
0509  CI 
050A  Dl 
050E  El 
050C  09 


JP 

GTT10 

;N0  -  DO  NOT  INSERT 

DCX 

H       | 

[DECREMENT 

MOV 

A,H 

;3ET  MSB 

XRI 

OFFH     ; 

;  COMPLEMENT 

MOV 

H,A     ; 

MOV 

A,L      ; 

;3ET  LSB 

XRI 

OFFH     ; 

COMPLEMENT 

MOV 

L,A     ; 

[RESTORE  LSB 

MVI 

A,'-'    ! 

[MINUS  SIGN 

CALL 

STUFF    ; 

,INSERT  *-' 

CALL 

BD5     ; 

CONVERT  TO  ASCII 

MVI 

A  "  ' 

CALL 

STUFF 

MIfcl 


GTTIO: 


RET 

STUFF  -  TAKES  CHARACTER  PRESENT  IN  A 

INSERTS  INTO  TBUFF  AT  LOCATION 

POINTED  TO  BY  POINT 

WHEN  POINT  =  1 OOH ,  BUFFER  IS  DfcJ 

STUFF: 


PUSH 

PUSH 

PUSH 

LHLD 

MOV 

INR 

JNZ 

CALL 

LXI 


STU10: 


H 

D 

B 

POINT 

M,A 

L 

STU10 

WRITE 

H,80H 


;STORE  IN  BUFFER 


SHLD  POINT 

POP  B 

POP  D 

POP  H 
RET 

*  BINDEC  -  CONVERTS  ONE  OR  TWO  BYTES  OF 

*  BINARY  DATA  TO  5  OR  3  ASCII  DE 

*  CHARACTERS 

*  ENTRY:  STORAGE  ADDRESS  IN  D,E 

*  VALUE  IN  H,L 


050D  AF 
050E  326601 
0511  01F0D8 
0514  CD3005 


BD5: 


D4: 


XRA 

A 

STA 

WORK 

LXI 

B,0D8F0H 

CALL 

BDA 
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0517 

01 18FC 

LXI 

B,0FC18H 

051A 

CD3005 

BD3: 

CALL 

BDA 

05  1  D 

019CFF 

LXI 

B,0FF9CH 

0520 

CD3005 

BD2: 

CALL 

BDA 

0523 

01F6FF 

LXI 

B,0FFF6H 

0526 

CD3005 

BD1: 

CALL 

BDA 

0529 

7D 

MOV 

A,L 

052A 

F630 

OR  I 

30H 

052C 

CDF504 

CALL 

STUFF 

052F 

C9 

EDA: 

RET 

0530 

AF 

BDB: 

XRA 

A 

;CLEAR  A 

0531 

5D 

MOV 

E  ,L 

0532 

54 

MOV 

D,H 

0533 

3C 

I  MR 

A 

0534 

09 

DAD 

B 

0535 

DA3105 

JC 

BDB 

0538 

3D 

DCR 

A 

0539 

6b 

MOV 

L  ,c 

053A 

62 

MOV 

H,D 

053B 

47 

MOV 

B,A     ; 

;SAVE  IN  B 

053C 

FE00 

CPI 

0       : 

;IS  IT  A  ZERO? 

053E 

C24705 

JNZ 

BDC      ! 

;N0  -  STUFF  IT 

0541 

3A6601 

LDA 

WORK     ; 

.FETCH  FLAG 

0544 

B7 

OR  A 

a      ; 

[IS  IT  SET? 

0545 

C8 

RZ 

[NO  -  RETURN  WITHOUT  SH 

0546 

78 

BDC: 

MOV 

A,B 

0547 

F630 

OR  I 

30H 

0549 

CDF504 

CALL 

STUFF 

054C 

3EFF 

MVI 

A,0FFH 

054E 

326601 

STA 

WORK     ; 

SET  FLA3 

0551 

CS 

;  ** 

RET 

DRIVERS 

-  I/O  SUBROUTINES  CONTAINING 

TTY,  CF 

IT,  DISK,  I/O  PORTS 

;  ** 

TTY  DRIVz 

:rs 

TTYIN: 

0552 

DBF  5 

IN 

TSTAT    ; 

FETCH  STATUS 

0554 

E602 

ANI 

RXRDY    ; 

IS  RECEIVER  READY  WITH 

0556 

CA5205 

JZ 

TTYIN    ; 

NO  KEEP  LOOKING 

055S 

DBF4 

IN 

TDATA    ; 

FETCH  DATA  BYTE 

055B 

C9 

TTYOUT: 

RET 

RETURN  WITH  BYTE  IN  A 
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055C 

F5 

PUSH 

PS  VI 

055D 

DBF5 

IN 

TSTAT 

055F 

E601 

ANI 

TXRDY 

0561 

CA5C05 

JZ 

TTYOUT 

0564 

Fl 

POP 

PSW 

0565 

D3F4 

OUT 

TDATA 

0567 

C9 

CRTIN: 

RET 

0568 

DBF7 

IN 

CSTAT 

056A 

E602 

ANI 

RXRDY 

056C 

CA6805 

JZ 

CRTIN 

056F 

DBF6 

CRTOUT: 

IN 

CDATA 

0571 

F5 

CRTl: 

PUSH 

PSW 

0572 

DBF7 

IN 

CSTAT 

0574 

£601 

ANI 

TXRDY 

0576 

CA7205 

JZ 

CRTl 

0579 

Fl 

POP 

PSW 

057A 

D3F6 

OUT 

CDATA 

057C 

C9 

PRINT: 

RET 

057D 

0E09 

rcvi 

C,9 

057F 

C30500 

PNIB: 

JMP 

ENTRY 

0582 

E60F 

ANI 

OFH 

0584 

FEOA 

CPI 

10 

0586 

D2SE05 

JNC 

P10 

0589 

C630 

ADI 

•o' 

058b 

C37105 

P10: 

J  MP 

CRTOUT 

058E 

C637 

ADI 

'A'  -  10 

0590 

C37105 

PHEX: 

J  MP 

CRTOUT 

0593 

F5 

PUSH 

PSW 

0594 

OF 

RRC 

0595 

OF 

RRC 

0596 

OF 

RRC 

0597 

OF 

RRC 

0598 

CD8205 

CALL 

PNIB 

C59B 

Fl 

POP 

PSW 

059C 

CD8205 

CALL 

PNIB 

059F 

C9 

PRHL: 

RET 

05A0 

E5 

PUSH  H 

05A1 

7C 

MOV 

A,H 

05A2 

CD9305 

CALL 

PHEX 

05A5 

El 

POP 

H 

05A6 

E5 

PUSH 

H 

05n7 

7D 

MOV 

A,L 

0  5A8 

CD9305 

CALL 

PHEX 

SAVE  DATA  BYTE 
FETCH  STATUS 
TRANSMITTER  READY  FORB 
NO  -  WAIT  UNTIL  READY 
BRING  BACK  DATA  BYTE 
OUTPUT  TO  TTY 
RETURN 

;FETCH  CRT  STATUS 
;RECEIVER  READY  WITH  BY 
;N0  -  WAIT  UNTIL  READY 
;FETCH  INPUT  BYTE 

;SAVE  DATA  BYTE 

FETCH  CRT  STATUS 
TXMITTER  READY  FOR  BYI 
NO  -  WAIT  UNTIL  READY 
BRING  BACK  DATA 
OUTPUT  DATA 
RETURN 

;SET  UP  FOR  BDOS  CALL 
;JUMP  TO  BDOS 

;MASX  LOW  4  BITS 
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05AB  £1 
05AC  C9 

05AD  3E0D 
05AF  CD7105 
05B2  3E0A 
05E4  C37105 


CRLF: 


05&7 
05B9 


OEOD 
C30500 


05BC  110000 
05BF  OEOE 
05C1  C30500 

05C4  110100 
05C7  OEOE 
05C9  C30500 

05CC  115C00 
05CF  OEOF 
05D1  C30500 

05D4  115C00 
05D7  0E10 
05D9  C30500 


05DC 
05DF 
05E1 
05E4 
05E5 
0516 
05E7 
05^A 
05EC 
05EF 

05F0 
05F3 

05F6 
05F9 
05  FB 

05FE 
05FF 
0600 
0601 
0604 
0607 


115C00 
OEM 
CD0500 
B7 

cs 

3D 

C2F005 

3E0F 

325B01 

C9 

1  10301 
C3EF06 

1 15C00 
0E15 
CD05C0 
B7 

CS 
3D 

C20A06 
1  10F01 

C3EFC6 


IMTIAL: 
L03A: 

LOGE: 

OPEN: 

CLOSE: 

READ: 


RDC10 


WR I  TE 


POP 
RET 

MVI 
CALL 
MVI 
JMP 

MVI 

JMP 

LXI 

MVI 

JMP 

LXI 

MVI 
JMP 

LXI 

MVI 
JMP 

LXI 
MVI 

JMP 

LXI 

MVI 

CALL 

ORA 

RZ 

DCR 

JNZ 

MVI 

STA 

RET 

LXI 
JMP 

LXI 

MVI 

CALL 

ORA 

RZ 

DCR 

JNZ 

LXI 

JMP 


H 


A,ODH 
CRTOUT 
A,OAH 
CRTOUT 

C,13 

ENTRY 

D,OOH 
C,  14 

ENTRY 

D,01H 
C  ,  1  4 
ENTRY 

D,05CH 
C  ,  1  5 

ENTRY 

D,05CH 
C,16 

ENTRY 

D,05CH 
C,20 

ENTRY 
A 

A 

RD010 
A,OFH 
EOFLG 


;CARRIAGE  RETURN 
;LINE  FEED 


RETURN  IF  NO  READ  ERRB 
IS  IT  AN  EOF? 
NO  MUST  BE  UNWRITTEN  U 
SlT  tOi*  FLAG 


D,MS31   ;  'READ  ERROR' 
ERREX 

D,05CH 
C,21 

ENTRY 
A 


; RETURN  IF  NO  WRITE  ERB 


A 

WR010 

D,MSG2      ;  'WRITE   ERROR 

ERREX 


WR010 
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060A   3D 
060B    C21406 
060E    111  CO  1 
061 1    C3BF06 


0614 
0617 


112701 

C3SF06 


061A    0E13 
061C    115C00 
061F   C30500 


0622 
0625 
0627 
062A 
062E 
062C 
062F 


1 15C00 

0E16 

CD0500 

3C 

CO 

1 12701 

C3BF06 


0632    115C00 
0635    OE  11 
0637    C30500 


063A 
063C 


0E1A 
C30500 


WR020: 


DELET: 


MAKE 


SEARCH: 


SETDMA 


DCR 
JNZ 
LXI 
JMP 

LXI 

JMP 

MVI 
LXI 

JMP 

LXI 

MVI 

CALL 

I  MR 

RNZ 

LXI 

JMP 

LXI 
MVI 
JMP 

MVI 

JMP 


A 

WR020 
D,MS33 
ERREX 

D,MS34 

ERREX 

C,19 

D,05CH 
ENTRY 

D,05CH 
C,22 

ENTRY 

A 

D,MS34 
ERREX 

D,05CH 
C  ,  17 

ENTRY 

C,26 
ENTRY 


;  'DISK   FULL' 

;  'DIRECTORY   FULL' 


;  'DIRECTORY   FULL' 


SETFCB    -   MOVES    AN    INITIALIZATION    BLOCKI 
TFCB    AREA 
ENTRY:      D,£    =    FILNAME    BLOCK 


SETFCB 


063F 

E5 

PUSH 

H 

;SAVE 

0640 

215C00 

LXI 

H,05CH 

;DEFAULT    FILE   CONTROL   L 

0643 

C5 

PUSH 

B 

;SAVE 

0644 

0613 

MVI 
SETF1: 

B,  19 

;SET    COUNTER 

0646 

1A 

LDAX 

D 

;FETCH    BYTE   TO    BE    TRANS 

0647 

77 

MOV 

M,A            : 

;ST0Rc    IN    TFCE    AREA 

0648 

23 

I  NX 

H 

[INCREMENT    H 

0649 

13 

I  NX 

D 

[INCREMENT    D 

064A 

05 

DCR 

k                   ! 

[FINISHED? 

064B 

C24606 

JNZ 

SETF1         ; 

NO    -    30    FOR    ANOTHER    K 

064E 

AF 

XRA 

a               ; 

'CLEAR    ACCUM 

364F 

327C00 

STA 

TFCB+32 

0652 

CI 

POP 

B 

0653 

El 

POP 

H 

0654 

C9 

RET 

•  y£  yf.it**  *****'*■  >£'*■> 

i***>lc**.3>z*.*? 

;*                RDFILE 

-    READ    AN 

ENTIRE    FILE    INTO   C.ONTB 
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0655 
0658 
065b 
065E 
065F 

0662 
0665 
0666 
0669 
066C 
066F 
0672 
0673 
0676 
0679 


226C01 

CD3F06 

CDC005 

AF 

325B01 

2A6C01 

Lb 

CD3A06 

CDDC05 

CDAE06 

3A5E01 

B7 

CA6206 

CDD405 

C9 


067A 

226C01 

067D 

CD3F06 

0680 

1 18000 

0683 

CD3A06 

0686 

CD3206 

0689 

3C 

068A 

C29006 

068D 

CD2206 

0690 

CDCC05 

0693 

2A6C01 

0696 

Eb 

0697 

CD3A06 

069A 

CDF605 

069D 

CDAE06 

06A0 

3A6Z01 

06A3 

216B00 

06A6 

L£ 

06A7 

C29A06 

MEMORY 

ENTRY:    STARTING    ADDRESS    OF    MEMB 
IN    H,L 
ADDRESS    OF    FILENAME    BLO 


"Y*  *^  J^  JJt  ^C  *^  Jfk  >p  ^C  ^t  J(k  ^C  JfC  ^C  ^E  ?^  SK.  24t  i^s  ?(C  *^t  s^.  JJC  2(t  ^t  j^  J3JC  ^^  J^  ^^  J^  J^  ^^  ^^  ^^  *^  *^  -^^  ^p>  ^p  ^^  ^^  ^^  t*  ^^  ^^ 


RDFILE: 


SHLD 

CALL 

CALL 

XRA 

STA 


RDF10: 


LHLD 

XCH3 

CALL 

CALL 

CALL 

LDA 

ORA 

JZ 

CALL 

RET 

WRFILE 


PAGER 

SETFCB 

OPEN 

A 

EOFLG 

PAGER 

SETDMA 

READ 

HAFPG 

EOFLG 

A 

RDF10 

CLOSE 


;STOR£   CURRENT    POINTER 

;OP£N    FILE 
;CLEAR    ACCUM 
;CLEAR   EOF    FLAG 

;FETCH    CURRENT   POINTER 
;PUT    POINTER    IN    D fE 


_    i 


wKlTfc. 
ENTRY: 


;READ    A   RECORD 

;MOV£    PAGE    INDEX 

;FETCH   EOF   FLAG 

;EOF   FOUND? 

;N0    -    READ    ANOTHER    PAGE 

;CL0SE    FILE 

; RETURN 

A  BLOCK  OF  MEMORY  IN  A  E 
NUMBER  OF  RECORDS+1  TOW 
STARTING    ADDRESS    IN    H,L 


WRFILE 


WRF05 


WRF10 


WRF15: 


SHLD 

CALL 

LXI 

CALL 

CALL 

INR 

JNZ 

CALL 

CALL 

LHLD 
XCHG 
CALL 

CALL 
CALL 
LDA 
LXI 

CMP 
JNZ 


PAGER 

SETFCB 

D,80H 

SET DMA 

SEARCH 

A 

WRF05 

MAKE 

OPEN 

PAGER 

SETDMA 

WRITE 

HAFPG 

RCDS 

H,TFCB+1 

M 

WRF15 


;S£T    UP    PAGER 
;SET   FCB 


;SEARCH    FOR    EXISTING    FL 
;WAS    THERE    A   MATCH? 
;YES    -   SKIP    MAKE   FUNCTO 
;MAK£    DIRECTORY   iNTRY 

;OPEN    FILE 

;FETCH    CURRENT   POINTER 
;PUT   POINTER    IN    L>  f£ 


; WRITE    A   RECORD 

;MOV£   PAGE    INDEX 

;FETCH    NUMBER    OF    RECORD 

5 

;N0    -    WRITE    ANOTHER    R£0 
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06AA  CDD405 
06AD  C9 


;CLOS£  THE  FILE 
RETURN 


CALL    CLOSE 
RET  ; 

SUBROUTINE  HAFPGE  -  ADJUSTS  DMA  ADDRESS 
HALF  PAGE  OF  MEMORY 


HAFP3 


06AE 

E5 

06AF 

2A6C01 

06B2 

118000 

06B5 

19 

06B6 

226C01 

06&9 

EB 

06BA 

CD3A06 

06BD 

El 

065E 

C9 

06BF 
06C2 
06C5 
06C8 
06CB 


** 


** 


ERREX 


CD7D05 
1 15C00 
CDD405 
C30000 


;SAVE 


ADD  128  TO  PAGER 
RESTORE  UPDATED  PAGER 
SWITCH  H,L  WITH  D tL 
SET  DMA 


ERREX  -  FATAL  ERRORS  EXIT  VIA  THIS  ROUT 
ENTRY:  D,£  CONTAIN  MESSAGE  ADDS 
EXIT:    BOOT  TO  DOS 


PUSH 

H 

LHLD 

PAGER 

LXI 

D,0128 

DAD 

D 

SHLD 

PAGER 

XCHG 

CALL 

SETDMA 

POP 

H 

RET 

END 


CALL 

PRINT 

; PRINT  THE  MESSAGE 

LXI 

D,TFCB 

; TEMPORARY  FCB 

CALL 

CLOSE 

;CLOS£  THE  FILE 

JMP 

BOOT 

;BOOT  TO  DOS 

100H 

A> 
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REM* *********************************************** ********* 

REM     REDUCE  -  EXTRACTS  FOURIER  COEFFICIENTS 

REM  OF  ODD  HARMONICS  FROM  GIVEN  DATA  FILE 

REM********************************************************* 

DELTA. T  =  S5E-6 

PI  =  3.1415S2S54 

CONTRS="B:CONTROL" 

DATUM. PTS$="S: DATA. ASC" 

OUTPUT$="B:OUTPUT" 

TABS  =  "  " 

FILE  DATUM. PTSS 

IF  END  #  1  THEN  200 

READ  #  1;  ICHNL,FCHNL,SV0,SV1 , SCANS, SCAN. PERIOD, RECORD. FREQ 

SCAN. PERIOD  :  SCAN. PERIOD  *  .97S5625E-3 

PRINT  "INITIAL  ANALOG  CHANNEL" ,ICHNL 

PRINT  "FINAL  ANALOG  CHANNEL"  ,FCHNL 

PRINT 

PRINT  "SCANI VALVE  ZERO  SETTING", SVO 

PRINT  "SCANIVALVE  ONE  SETTING  ",SV1 

PRINT 

PRINT  "NUMEER  OF  SCANS  ", SCANS 

PRINT  "SCAN  PERIOD", SCAN. PERIOD;"  SECONDS" 

PRINT  "SCAN  RATE",  1/SCAN. PERIOD;"  HZ" 

RECORD.FRZG= RECORD. FREQ/ 10 

PRINT  "RECORDED  REFERENCE  FREQUENCY  ", RECORD. FREQ 

REM      READ  IN  ASCII  DATA  FILE 

DIM  DATCFCHNL+1 , SCANS) ,PHASE(FCHNL+1 ) ,A(FCHNL+1) ,B(FCHNL+1) 

READ  #  1; DUMMY, DUMMY, DUMMY 

PRINT 

FOR  1=  1  TO  SCANS 

READ  #1;TIME 

FOR  JrlCHNL  TO  FCHNL 

READ  #1;DAT(J,I) 

NEXT  J 

NEXT  I 

REM      COMPUTE  LAST  DATA  SAMPLE  NUMBER  TO  BE  USED 

OMEGA    =    2*PI*REC0RD.FREQ 

DRIVE. PERIOD  z    1 /RECORD. FREQ 

N  =  INTCCDRIVE. PERIOD/SCAN. PERIOD)\ 

*I NT (CSCANS*SCAN. PERIOD) /DRIVE. PERIOD)) 
PRINT  "NUMBER  OF  DATA  POINTS  USED  "; N /'AVAILABLE  ";SCANS 

rt^^****^*************;******************:*:**^*****^******** 

REM     COMPUTE  FOURIER  COEFFICIENTS 

RiM ****************************************************** 

HIHARMONIC  z    I  NT (DRIVE .PERIOD/SCAN .PERIOD/2) 

IF  HIHARMONIC  >  5  THEN  HIHARMONIC  z    5 

PRINT  "HIGHEST  HARMONIC  EXTRACTED  ";HIHARMONIC 
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FOR  INDEX  :  0  TO  HIHARMONIC 
FOR  JrlCHNL  TO  FCHNL 
A(J)=0 
B(J)=0 

NEXT  J 

FOR  I  :  1  TO  N 

FOR  JrlCHNL  TO  FCHNL 

XI:  INDEX*OMEGA*CCI-l)*SCAN.PERIOD+DELTA.T*J) 

BCJ)=BCJ)+DATCJ,I)*SINCX1) 

A(J)=ACJ)+DATCJ,I)*COSCXl) 
NEXT  J 
NEXT  I 

ZEtt  OUTPUT 

PRINT  "FOURIER  COEFFICIENTS  FOR  HARMONIC  "; INDEX 
PRINT"CHANNEL","COS"  ,  "SI N"  ,  "PHASE  ","f'iAG" 
FOR  JrlCHNL  TO  FCHNL 
PHASECJ)=ATN(B(J)/A(J)) 

IF  A(J)<0  AND  B(J)>0  THEN  PHASEC J ) =PHASE CJ)+PI 

IF  A(J)<0  AND  B(J)<0  THEN  PHASEC J ) = CPHASE C J ) -PI ) 

IF  INDEX  =  0  THEN  ACJ)  z    A(J)/2 

MA  3=  SQR((AES(A(J)))t2+(AES(B(J)))T2)/2.048/I 

IF  INDEX  =  1   AND  J  -    0   THEN  FASE  =  PHASE(O) 

PHASECJ)=PHASECJ)-FASE 

IF  PHASECJ)<-PI  THEN  PHASEC J) =PHASE CJ)+2*PI 

IF  PHASECJ)>PI  THEN  PHASEC J) =PHASE ( J) -2*PI 

PRINT  J,ACJ)/2.048/I,BCJ)/2.04S/I,l80*PHAS£CJ)/PI,MAG 

NEXT  J 

PRINT 

NEXT  INDEX 

200  STOP 

END 
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APPENDIX    D 


SAMPLE    OUTPUT 


INITIAL    ANAL0  3   CHANNEL  0 

FINAL    ANALOG   CHANNEL  4 

COCR DI NATION    NUMBER  1 


NUMBER    OF   SCANS  400 

SCAN    PERIOD      2.929688E-03      SECONDS 
SCAN    RATE  341,3353      HZ 

r-.LCCRdZD   RIFIREKCL   FREQUENCY 

NUMBER    OF    DATA   POINTS    USED    571 

FOURIER    COEFFICIENTS    FOR    HARMONIC    0 

CHANNEL  CCS  SIN 

0  2.49591  0 

1  2.434844  0 

2  2.529857  0 
5  2.211704  0 
4  2.316711  0 

FOURIER    COEFFICIENTS    FCR    HARMONIC    1 


CHANNEL 

0 
1 

2 
3 
4 


COS 

-654.6373 

-655.8682 

-653.5261 

-652.9547 

-652.5599 


SIN 

-816.6686 

-817.2451 

-817. 66  c 6 

-818.0521 

-818.2418 


FOURIER    COEFFICIENTS    FCR    HARMONIC    2 


CHANNEL 

0 

1 

2 

3 

4 


CCS 

1  .4001 19 
1  .38256 
1  .34165 
1  .567927 
1  .51  1007 


SIN 

-5.062779 

-5.054472 

-2.995208 

-2.955155 

-2.995277 


10.1 

AVAILALL 

PHASE 

0 
0 
0 
0 
0 


PHASE 
0 

5.260612: 
8.171659i 
.1 192551 
•  1 42628 


PHASE 

63.2825 

65.21055 

65.95051 

66.8261 

65  .48^75 


E    400 


■02 
•02 


ivj  A  a 

2.495908 
2.45  4845 
2.529858 
2.21 1705 
2.51S715 


MAS 

1046.66 

1046.629 

1046.746 

1046.688 

1046.59 


h  A  u 

5.567651 
5  .55459 
5  .568662 
5.527692 
3  » 3d 4<_> 1 8 
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APPENDIX  E 


OPERATING  INSTRUCTIONS 


A.   ACQUISITION  PROCEDURE  INSTRUCTIONS 

1.  Interconnect  the  following  with  the  MDS-800  using  the 
appropriate  cables: 

*  Disk   Drive 

*  CRT 

*  ENC    Patch    Panel 

*  Teletype     (optional) 

2.  Attach  analog  sources  to  the  desired  patch  panel  3NC 
fitting  using  coaxial  cables.  Up  to  16  channels  may  be 
attached.  Ensure  voltage  limits  on  analog  inputs  do  not 
exceed  plus  or  minus  5  volts. 

3.  With  disk  drive  doors  open,  power  up  all  equipment. 

4.  Install  the  program  diskette  in  Drive  A  and  a  blank  or 
aprotected  diskette  in  Drive  3,  then  close  the  doers. 

5.  Depress  the  300T  switch  and  momentarily  depress  the 
RESET  switch. 

6.  Depress  the  space  bar  on  the  CRT  keyboard. 

~i .  Reposition  the  BOOT  switch  -  The  CRT  will  display  the 
following  message:  32K  CP/M  VERS  1.3 

8.  Enter  ACQUIRE  and  a  carriage  return.  The  program  will 
respond  by  displaying  the  current  CONTROL  file  and  ask: 
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"ANY  CHANGES?". 
9.   Respond  with  a  Y  for  yes  or  a  N  for  no. 

10.  If  yes,  you  must  then  edit  the  CONTROL  file  by 
ent  ering: 

*  ED  CONTROL  cr 

*  #A  cr 

Use  the  editing  commands  specified  in  ref.   9. 

11.  If  nc,  the  program  will  ask  for  a  4  digit  frequency  to 
be  entered.  The  decimal  point  is  understood  to  be 
between  the  first  and  second  significant  digits, 

ex:  0105  is    equivalent  to  10.5  Hz. 

12.  When  ready  to  record  data,  enter  a  carriage  return. 

13.  Repeat  steps  11  and  12  until  the  CONTROL  file 
terminates  and  asks  "GOOD  RUN?" . 

14.  Enter  Y  if  you  wish  to  protect  the  disk  from  being 
written  to. 

15.  Entering  a  N  will  not  protect  the  diskette  nor  will  it 
destroy  data  on  the  disk. 


I.   DATA  ANALYSIS  PROCEDURE  INSTRUCTIONS 

1.  With  the  DATA  diskette  in  Drive  B  and  the  program 
diskette  in  Drive  A,  type  in  CONVEPT  DATA.xxx;  where 
xxx  is  the  decimal  ID  of  the  data  file, 

CONVERT  DATA. 001 

2.  When  prompted  with  an  A>,  enter  RUN  REDUCE.  Output  will 
appear  on  the  selected  console  device. 
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APPENDIX  F 


SAMPLE  CONTROL  FILE. 


DATE:S/15/77 

RUN#:  SIN  REDUCTION  TEST 

SCANS  PER  CHANNEL:  400 

SCAN  PERIOD:  2 

FIRST  CHANNEL:  0 

LAST  CHANNEL:  2 

SCANIVALVE  0:  1 

SCANIVALVE  0:  6 

SCANIVALVE  1:  1 

SCANIVALVE  1:  6 

CHANNEL  1   =  INPUT  FROM  WAVETEK 

CHANNEL  2  AND  3  =  OUTPUT  FROM  OP 

AMP  FILTER 

DATA. 000  -    10HZ  SIN  WAVE 

ZERO 

OFFSET 

.001  :  25HZ  SIN  WITH 

ZERO 

OFFSET 

.002  z    35HZ  SIN  WITH 

ZERO 

CFFSET 

.003  =  50HZ  SIN  WITH 

ZERO 

OFFSET 

.004  z    65HZ  SIN  WITH 

ZERO 

OFFSET 

.005  z    75HZ  SIN  WITH 

ZERO 

OFFSET 
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